home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / go / prog / xgoban10.sh < prev    next >
Encoding:
Linux/UNIX/POSIX Shell Script  |  1993-06-20  |  315.8 KB  |  10,719 lines
  1. #! /bin/sh
  2. # This is a shell archive, meaning:
  3. # 1. Remove everything above the #! /bin/sh line.
  4. # 2. Save the resulting text in a file.
  5. # 3. Execute the file with /bin/sh (not csh) to create the files:
  6. #    Goban.c
  7. #    node.c
  8. #    sg.c
  9. #    read.c
  10. #    write.c
  11. #    play.c
  12. #    event.c
  13. #    dialog.c
  14. #    xgoban.c
  15. #    action.c
  16. #    misc.c
  17. #    display.c
  18. #    game.c
  19. #    blackstone.bm
  20. #    graystone.bm
  21. #    stonemask.bm
  22. #    whitestone.bm
  23. #    icon.bm
  24. #    Goban.h
  25. #    GobanP.h
  26. #    sg.h
  27. #    xgoban.h
  28. #    Goban.doc
  29. #    xgoban.doc
  30. #    xgoban.man
  31. #    xgoban.6
  32. #    xgoban.ad
  33. #    README
  34. #    CHANGE.Goban
  35. #    Imakefile
  36. #    xmailgo
  37. #    mailgo.6
  38. # This archive created: Wed Jul  8 08:46:20 1992
  39. export PATH; PATH=/bin:$PATH
  40. if test -f 'Goban.c'
  41. then
  42.     echo shar: will not over-write existing file "'Goban.c'"
  43. else
  44. cat << \SHAR_EOF > 'Goban.c'
  45. /****************************************************************************************************************
  46.  *
  47.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  48.  *
  49.  *  This program is distributed in the hope that it will be useful.
  50.  *  Use and copying of this software and preparation of derivative works
  51.  *  based upon this software are permitted, so long as the following
  52.  *  conditions are met:
  53.  *       o credit to the authors is acknowledged following current
  54.  *         academic behaviour
  55.  *       o no fees or compensation are charged for use, copies, or
  56.  *         access to this software
  57.  *       o this copyright notice is included intact.
  58.  *  This software is made available AS IS, and no warranty is made about 
  59.  *  the software or its performance. 
  60.  * 
  61.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  62.  *  Send them to    dumesnil@etca.fr   or to:
  63.  *       
  64.  *       Antoine de Maricourt
  65.  *       ETCA CREA-SP
  66.  *       16 bis, avenue Prieur de la Cote d'Or
  67.  *       94114 Arcueil Cedex
  68.  *       France
  69.  */
  70.  
  71. #include <X11/IntrinsicP.h>
  72. #include <X11/StringDefs.h>
  73. #include <X11/Xlib.h>
  74. #include <X11/cursorfont.h>
  75.  
  76. #include "GobanP.h"
  77.  
  78. #include "whitestone.bm"
  79. #include "blackstone.bm"
  80. #include "graystone.bm"
  81. #include "stonemask.bm"
  82.  
  83. #define offset(field) XtOffset (GobanWidget, goban.field)
  84.  
  85. static XtResource resources[] = {
  86.   { XtNautoRedisplay     , XtCAutoRedisplay     , XtRBoolean   , sizeof (Boolean)      ,
  87.       offset (auto_redisplay)     , XtRImmediate     , (caddr_t) TRUE         },
  88.   { XtNviewBottom        , XtCPosition          , XtRPosition  , sizeof (Position)     ,
  89.       offset (bottom)             , XtRImmediate     , (caddr_t) 1            },
  90.   { XtNcursor            , XtCCursor            , XtRInt       , sizeof (int)          ,
  91.       offset (cursor)             , XtRImmediate     , (caddr_t) GbCGrayStone },
  92.   { XtNfont              , XtCFont              , XtRFontStruct, sizeof (XFontStruct *),
  93.       offset (font)               , XtRString        , "fixed"                },
  94.   { XtNforeground        , XtCForeground        , XtRPixel     , sizeof (Pixel)        ,
  95.       offset (foreground)         , XtRString   , XtDefaultForeground    },
  96.   { XtNgameSize          , XtCSize              , XtRDimension , sizeof (Dimension)    ,
  97.       offset (game_size)          , XtRImmediate, (caddr_t) 19           },
  98.   { XtNviewLeft          , XtCPosition          , XtRPosition  , sizeof (Position)     ,
  99.       offset (left)               , XtRImmediate, (caddr_t) 1            },
  100.   { XtNdisplayCoordinates, XtCDisplayCoordinates, XtRBoolean   , sizeof (Boolean)      ,
  101.       offset (display_coordinates), XtRImmediate, (caddr_t) TRUE         },
  102.   { XtNpointSize         , XtCSize              , XtRDimension , sizeof (Dimension)    ,
  103.       offset (point_size)         , XtRImmediate     , (caddr_t) 26           },
  104.   { XtNviewRight         , XtCPosition          , XtRPosition  , sizeof (Position)     ,
  105.       offset (right)              , XtRImmediate     , (caddr_t) 19           },
  106.   { XtNviewTop           , XtCPosition          , XtRPosition  , sizeof (Position)     , 
  107.       offset (top)                , XtRImmediate     , (caddr_t) 19           },
  108.   { XtNwhiteStoneForeground, XtCForeground        , XtRPixel     , sizeof (Pixel)        ,
  109.       offset (white_fg)           , XtRString   , "black"    },
  110.   { XtNwhiteStoneBackground, XtCBackground        , XtRPixel     , sizeof (Pixel)        ,
  111.       offset (white_bg)           , XtRString   , "white"    },
  112.   { XtNwhiteStoneBorder    , XtCBorderColor       , XtRPixel     , sizeof (Pixel)        ,
  113.       offset (white_bd)           , XtRString   , "black"    },
  114.   { XtNblackStoneForeground, XtCForeground        , XtRPixel     , sizeof (Pixel)        ,
  115.       offset (black_fg)           , XtRString   , "white"    },
  116.   { XtNblackStoneBackground, XtCBackground        , XtRPixel     , sizeof (Pixel)        ,
  117.       offset (black_bg)           , XtRString   , "black"    },
  118.   { XtNblackStoneBorder    , XtCBorderColor       , XtRPixel     , sizeof (Pixel)        ,
  119.       offset (black_bd)           , XtRString   , "black"    },
  120. };
  121.  
  122. static void    ClassInitialize ();
  123. static void    Initialize      ();
  124. static void    Redisplay       ();
  125. static void    Realize         ();
  126. static void    Destroy         ();
  127. static void    Resize          ();
  128. static void    DrawPoint       ();
  129. static Boolean SetValues       ();
  130.  
  131. GobanClassRec gobanClassRec = {
  132.   { /* core fields */
  133.     /* superclass        */    (WidgetClass) &widgetClassRec,
  134.     /* class_name        */    "Goban",
  135.     /* widget_size        */    sizeof (GobanRec),
  136.     /* class_initialize        */    ClassInitialize,
  137.     /* class_part_initialize    */    NULL,
  138.     /* class_inited        */    FALSE,
  139.     /* initialize        */    Initialize,
  140.     /* initialize_hook        */    NULL,
  141.     /* realize            */    Realize,
  142.     /* actions            */    NULL,
  143.     /* num_actions        */    0,
  144.     /* resources        */    resources,
  145.     /* num_resources        */    XtNumber (resources),
  146.     /* xrm_class        */    NULLQUARK,
  147.     /* compress_motion        */    TRUE,
  148.     /* compress_exposure    */    TRUE,
  149.     /* compress_enterleave    */    TRUE,
  150.     /* visible_interest        */    FALSE,
  151.     /* destroy            */    Destroy,
  152.     /* resize            */    Resize,
  153.     /* expose            */    Redisplay,
  154.     /* set_values        */    SetValues,
  155.     /* set_values_hook        */    NULL,
  156.     /* set_values_almost    */    XtInheritSetValuesAlmost,
  157.     /* get_values_hook        */    NULL,
  158.     /* accept_focus        */    NULL,
  159.     /* version            */    XtVersion,
  160.     /* callback_private        */    NULL,
  161.     /* tm_table            */    NULL,
  162.     /* query_geometry        */    XtInheritQueryGeometry,
  163.     /* display_accelerator    */    XtInheritDisplayAccelerator,
  164.     /* extension        */    NULL
  165.   }
  166. };
  167.  
  168. WidgetClass gobanWidgetClass = (WidgetClass) &gobanClassRec;
  169.  
  170. /****************************************************************************************************************
  171.  */
  172.  
  173. void GbRedisplayBoard (w)
  174. Widget w;
  175. {
  176.   GobanWidget gw      = (GobanWidget) w;
  177.   Dimension   width   = w->core.width;
  178.   Dimension   height  = w->core.height;
  179.  
  180.   if (XtIsRealized (w))
  181.     XCopyArea (XtDisplay (w), gw->goban.picture, XtWindow (w), gw->goban.copy_gc, 0, 0, width, height, 0, 0);
  182. }
  183.  
  184. /****************************************************************************************************************
  185.  */
  186.  
  187. void GbClearBoard (w)
  188. Widget w;
  189. {
  190.   GobanWidget gw        = (GobanWidget) w;
  191.   Boolean     redisplay = gw->goban.auto_redisplay;
  192.   Position    x;
  193.   Position    y;
  194.  
  195.   gw->goban.auto_redisplay = FALSE;
  196.  
  197.   for (x = 1; x <= gw->goban.game_size; x++)
  198.     for (y = 1; y <= gw->goban.game_size; y++)
  199.       GbSetPoint (w, x, y, GbEmptyPoint);
  200.  
  201.   gw->goban.auto_redisplay = redisplay;
  202.  
  203.   if (redisplay == TRUE)
  204.     GbRedisplayBoard (w);
  205. }
  206.  
  207. /****************************************************************************************************************
  208.  */
  209.  
  210. void GbClearMarks (w)
  211. Widget w;
  212. {
  213.   GobanWidget gw        = (GobanWidget) w;
  214.   Boolean     redisplay = gw->goban.auto_redisplay;
  215.   Position    x;
  216.   Position    y;
  217.  
  218.   gw->goban.auto_redisplay = FALSE;
  219.  
  220.   for (x = 1; x <= gw->goban.game_size; x++)
  221.     for (y = 1; y <= gw->goban.game_size; y++) {
  222.  
  223.       gw->goban.points[x][y].mark1 = 0;
  224.       gw->goban.points[x][y].mark2 = 0;
  225.       gw->goban.points[x][y].num   = 0;
  226.     
  227.       if (x >= gw->goban.left && y >= gw->goban.bottom && x <= gw->goban.right && y <= gw->goban.top)
  228.     if (gw->goban.points[x][y].free == 1)
  229.       DrawPoint (w, x, y, GbEmptyPoint);
  230.     else
  231.       if (gw->goban.points[x][y].black == 1)
  232.         DrawPoint (w, x, y, GbBlackStone);
  233.       else
  234.         DrawPoint (w, x, y, GbWhiteStone);
  235.     }
  236.  
  237.   gw->goban.auto_redisplay = redisplay;
  238.  
  239.   if (redisplay == TRUE)
  240.     GbRedisplayBoard (w);
  241. }
  242.  
  243. /****************************************************************************************************************
  244.  */
  245.  
  246. /* ARGSUSED */
  247.  
  248. void GbSetPoint (w, x, y, color)
  249. Widget       w;
  250. Position     x;
  251. Position     y;
  252. GbPointState color;
  253. {
  254.   GobanWidget gw = (GobanWidget) w;
  255.  
  256.   if (x >= 1 && y >= 1 && x <= gw->goban.game_size && y <= gw->goban.game_size) {
  257.     switch (color) {
  258.  
  259.     case GbBlackStone :
  260.       gw->goban.points[x][y].free  = 0;
  261.       gw->goban.points[x][y].black = 1;
  262.       break;
  263.  
  264.     case GbWhiteStone :
  265.       gw->goban.points[x][y].free  = 0;
  266.       gw->goban.points[x][y].black = 0;
  267.       break;
  268.  
  269.     case GbEmptyPoint :
  270.       gw->goban.points[x][y].free  = 1;
  271.       break;
  272.     }
  273.     
  274.     gw->goban.points[x][y].num   = 0;
  275.     gw->goban.points[x][y].mark1 = 0;
  276.     gw->goban.points[x][y].mark2 = 0;
  277.  
  278.     if (x >= gw->goban.left && y >= gw->goban.bottom && x <= gw->goban.right && y <= gw->goban.top)
  279.       DrawPoint (w, x, y, color);
  280.   }
  281. }
  282.  
  283. /****************************************************************************************************************
  284.  */
  285.  
  286. /* ARGSUSED */
  287.  
  288. Boolean GbGetPositionFromStone (w, x, y)
  289. GobanWidget   w;
  290. Position     *x;
  291. Position     *y;
  292. {
  293.   if (*x >= w->goban.left && *y >= w->goban.bottom && *x <= w->goban.right && *y <= w->goban.top) {
  294.     
  295.     *x = ((w->goban.x_offset + w->goban.point_size * *x) * 2 + w->goban.point_size) / 2;
  296.     *y = ((w->goban.y_offset - w->goban.point_size * *y) * 2 + w->goban.point_size) / 2;
  297.     
  298.     return TRUE;
  299.   }
  300.   
  301.   else 
  302.     return FALSE;
  303. }
  304.  
  305. /****************************************************************************************************************
  306.  */
  307.  
  308. /* ARGSUSED */
  309.  
  310. Boolean GbGetStoneFromPosition (w, x, y)
  311. Widget     w;
  312. Position  *x;
  313. Position  *y;
  314. {
  315.   GobanWidget gw         = (GobanWidget) w;
  316.   Dimension   point_size = gw->goban.point_size;
  317.   Position    xmin       = gw->goban.x_offset + point_size * gw->goban.left + 1;
  318.   Position    ymin       = gw->goban.y_offset - point_size * gw->goban.top  + 1;
  319.   Position    xmax       = gw->goban.x_offset + point_size * (gw->goban.right  + 1) - 1;
  320.   Position    ymax       = gw->goban.y_offset - point_size * (gw->goban.bottom - 1) - 1;
  321.  
  322.   if (*x > xmin && *x < xmax && *y > ymin && *y < ymax) {
  323.  
  324.     *x = (*x - gw->goban.x_offset - 1) / point_size;
  325.     *y = (gw->goban.y_offset - *y + point_size + 1) / point_size;
  326.  
  327.     return TRUE;
  328.   }
  329.  
  330.   return FALSE;
  331. }
  332.  
  333. /****************************************************************************************************************
  334.  */
  335.  
  336. void GbSetNum (w, x, y, num)
  337. Widget      w;
  338. Position    x;
  339. Position    y;
  340. int         num;
  341. {
  342.   GobanWidget  gw      = (GobanWidget) w;
  343.   Display     *display = XtDisplay (w);
  344.   GC           draw_gc;
  345.   GC           undraw_gc;
  346.   XCharStruct  extent;
  347.   XExposeEvent event;
  348.   int          ascent;
  349.   int          descent;
  350.   int          direction;
  351.   int          X;
  352.   int          Y;
  353.   char         s[3];
  354.   int          len = 0;
  355.  
  356.   if (num >= 0 && num <= 999 && x >= 1 && y >= 1  && x <= gw->goban.game_size && y <= gw->goban.game_size) {
  357.     
  358.     gw->goban.points[x][y].num   = num;
  359.     gw->goban.points[x][y].mark1 = 0;
  360.     gw->goban.points[x][y].mark2 = 0;
  361.     
  362.     if (x >= gw->goban.left && y >= gw->goban.bottom && x <= gw->goban.right && y <= gw->goban.top) {
  363.       
  364.       if (gw->goban.points[x][y].free == 0) {
  365.     
  366.     if (num == 0) {
  367.       if (gw->goban.points[x][y].black == 1)
  368.         DrawPoint (w, x, y, GbBlackStone);
  369.       else
  370.         DrawPoint (w, x, y, GbWhiteStone);
  371.     }
  372.     
  373.     else {
  374.       if (gw->goban.points[x][y].black == 1) {
  375.         draw_gc   = gw->goban.black_fg_gc;
  376.         undraw_gc = gw->goban.black_bg_gc;
  377.       } else {
  378.         draw_gc   = gw->goban.white_fg_gc;
  379.         undraw_gc = gw->goban.white_bg_gc;
  380.       }
  381.       
  382.       X = (gw->goban.x_offset + gw->goban.point_size * x) * 2 + gw->goban.point_size;
  383.       Y = (gw->goban.y_offset - gw->goban.point_size * y) * 2 + gw->goban.point_size;
  384.       
  385.       if (num > 99)
  386.         s[len++] = '0' + (num % 1000) / 100;
  387.       if (num > 9)
  388.         s[len++] = '0' + (num % 100) / 10;
  389.       s[len++] = '0' + num % 10;
  390.       
  391.       XQueryTextExtents (display, XGContextFromGC (draw_gc),
  392.                  s, len, &direction, &ascent, &descent, &extent);
  393.       
  394.       if (extent.width + extent.descent + extent.ascent < gw->goban.point_size - 1) {
  395.         XFillArc (display, gw->goban.picture, undraw_gc, 
  396.               (int) (X - gw->goban.point_size) / 2 + 2, (int) (Y - gw->goban.point_size) / 2 + 2, 
  397.               (unsigned int) gw->goban.point_size - 4, (unsigned int) gw->goban.point_size - 4, 
  398.               0, 360 * 64);
  399.         XDrawString (display, gw->goban.picture, draw_gc,
  400.              (X - extent.width) / 2 - extent.lbearing + 1, 
  401.              (Y + extent.ascent - extent.descent) / 2 + 1, s, len);
  402.       }
  403.     
  404.       if (gw->goban.auto_redisplay == TRUE && XtIsRealized (w) == TRUE) {
  405.         event.x      = (X - gw->goban.point_size) / 2;
  406.         event.y      = (Y - gw->goban.point_size) / 2;
  407.         event.width  = gw->goban.point_size;
  408.         event.height = gw->goban.point_size;
  409.         
  410.         Redisplay (w, &event, (Region) NULL);
  411.       }
  412.     }
  413.       }
  414.     }
  415.   }
  416. }
  417.  
  418. /****************************************************************************************************************
  419.  */
  420.  
  421. void GbSetMark (w, x, y, c1, c2)
  422. Widget        w;
  423. Position      x;
  424. Position      y;
  425. unsigned char c1;
  426. unsigned char c2;
  427. {
  428.   GobanWidget  gw      = (GobanWidget) w;
  429.   Display     *display = XtDisplay (w);
  430.   int          len     = 0;
  431.   XCharStruct  extent;
  432.   XExposeEvent event;
  433.   int          ascent;
  434.   int          descent;
  435.   int          direction;
  436.   int          X;
  437.   int          Y;
  438.   int          radius;
  439.   char         s[2];
  440.   XSegment     segment[4];
  441.   GC           mark_gc;
  442.   GC           erase_gc;
  443.   
  444.   if (x >= 1 && y >= 1 && x <= gw->goban.game_size && y <= gw->goban.game_size) {
  445.    
  446.     if (c1 != 0 || c2 != 0)
  447.       GbSetMark (w, x, y, 0, 0);
  448.      
  449.     gw->goban.points[x][y].mark1 = c1;
  450.     gw->goban.points[x][y].mark2 = c2;
  451.     gw->goban.points[x][y].num   = 0;
  452.  
  453.     if (x >= gw->goban.left && y >= gw->goban.bottom && x <= gw->goban.right && y <= gw->goban.top) {
  454.       
  455.       if (c1 == 0 && c2 == 0) {
  456.     if (gw->goban.points[x][y].free == 0)
  457.       if (gw->goban.points[x][y].black == 1)
  458.         DrawPoint (w, x, y, GbBlackStone);
  459.       else
  460.         DrawPoint (w, x, y, GbWhiteStone);
  461.     else
  462.       DrawPoint (w, x, y, GbEmptyPoint);
  463.       }
  464.       
  465.       else {
  466.     X = (gw->goban.x_offset + gw->goban.point_size * x) * 2 + gw->goban.point_size;
  467.     Y = (gw->goban.y_offset - gw->goban.point_size * y) * 2 + gw->goban.point_size;
  468.               
  469.     if (gw->goban.points[x][y].free == 0)
  470.       if (gw->goban.points[x][y].black == 1) {
  471.         mark_gc  = gw->goban.black_fg_gc;
  472.         erase_gc = gw->goban.black_bg_gc;
  473.       }
  474.       else {
  475.         mark_gc  = gw->goban.white_fg_gc;
  476.         erase_gc = gw->goban.white_bg_gc;
  477.       }
  478.  
  479.     else {
  480.       mark_gc  = gw->goban.foreground_gc;
  481.       erase_gc = gw->goban.background_gc;
  482.     }
  483.     
  484.     if (c1 == 0) {
  485.       radius = 10 * gw->goban.point_size / 15;
  486.       
  487.       if (gw->goban.points[x][y].free == 0)
  488.           XFillArc (display, gw->goban.picture, erase_gc, 
  489.             (int) (X - gw->goban.point_size) / 2 + 2, (int) (Y - gw->goban.point_size) / 2 + 2, 
  490.             (unsigned int) gw->goban.point_size - 4, (unsigned int) gw->goban.point_size - 4, 
  491.             0, 360 * 64);
  492.       else
  493.         XFillArc (display, gw->goban.picture, erase_gc,
  494.               (int) (X - radius) / 2, (int) (Y - radius) / 2, 
  495.               (unsigned int) radius, (unsigned int) radius, 
  496.               0, 360 * 64);
  497.  
  498.       switch (c2) {
  499.         
  500.       case GbMTriangleMark :
  501.         radius -= 4;
  502.  
  503.         segment[0].x1 = (short) X / 2;
  504.         segment[0].x2 = (short) (X / 2 + (86 * radius + 100) / 200);
  505.         segment[0].y1 = (short) (Y / 2 - (radius - 1) / 2);
  506.         segment[0].y2 = (short) (Y / 2 + (radius + 4) / 4);
  507.         
  508.         segment[1].x1 = (short) segment[0].x2;
  509.         segment[1].x2 = (short) (X / 2 - (86 * radius + 100) / 200);
  510.         segment[1].y1 = (short) segment[0].y2;
  511.         segment[1].y2 = (short) (Y / 2 + (radius + 4) / 4);
  512.         
  513.         segment[2].x1 = (short) segment[1].x2;
  514.         segment[2].x2 = (short) segment[0].x1;
  515.         segment[2].y1 = (short) segment[1].y2;
  516.         segment[2].y2 = (short) segment[0].y1;
  517.  
  518.         XDrawSegments (display, gw->goban.picture, mark_gc, segment, 3);
  519.         break;
  520.  
  521.       case GbMSquareMark  :
  522.         radius = 10 * radius / 14 - 2;
  523.         
  524.         XDrawRectangle (display, gw->goban.picture, mark_gc, 
  525.                 (X - radius) / 2, (Y - radius) / 2, 
  526.                 (unsigned int) radius, (unsigned int) radius);
  527.         break;
  528.     
  529.       case GbMDCrossMark  :
  530.         radius = 10 * radius / 14 - 2;
  531.  
  532.         segment[0].x1 = (short) (X - radius) / 2;
  533.         segment[0].x2 = (short) segment[0].x1    + radius;
  534.         segment[0].y1 = (short) (Y - radius) / 2;
  535.         segment[0].y2 = (short) segment[0].y1    + radius;
  536.  
  537.         segment[1].x1 = (short) (X - radius) / 2 + radius;
  538.         segment[1].x2 = (short) segment[1].x1    - radius;
  539.         segment[1].y1 = (short) (Y - radius) / 2;
  540.         segment[1].y2 = (short) segment[1].y1    + radius;
  541.         
  542.         XDrawSegments (display, gw->goban.picture, mark_gc, segment, 2);
  543.         break;
  544.         
  545.       case GbMVCrossMark  :
  546.         radius -= 4;
  547.  
  548.         segment[0].x1 = (short) X / 2;
  549.         segment[0].x2 = (short) segment[0].x1;
  550.         segment[0].y1 = (short) (Y - radius) / 2;
  551.         segment[0].y2 = (short) segment[0].y1 + radius;
  552.  
  553.         segment[1].x1 = (short) (X - radius) / 2;
  554.         segment[1].x2 = (short) segment[1].x1 + radius;
  555.         segment[1].y1 = (short) Y / 2;
  556.         segment[1].y2 = (short) segment[1].y1;
  557.         
  558.         XDrawSegments (display, gw->goban.picture, mark_gc, segment, 2);
  559.         break;
  560.  
  561.       case GbMDiamondMark :
  562.         radius -= 4;
  563.  
  564.         segment[0].x1 = (short) X / 2;
  565.         segment[0].x2 = (short) segment[0].x1 + radius / 2;
  566.         segment[0].y1 = (short) (Y - radius) / 2;
  567.         segment[0].y2 = (short) segment[0].y1 + radius / 2;
  568.  
  569.         segment[1].x1 = (short) segment[0].x2;
  570.         segment[1].x2 = (short) segment[0].x1;
  571.         segment[1].y1 = (short) segment[0].y2;
  572.         segment[1].y2 = (short) segment[1].y1 + radius / 2;
  573.         
  574.         segment[2].x1 = (short) segment[1].x2;
  575.         segment[2].x2 = (short) segment[2].x1 - radius / 2;
  576.         segment[2].y1 = (short) segment[1].y2;
  577.         segment[2].y2 = (short) segment[1].y1;
  578.         
  579.         segment[3].x1 = (short) segment[2].x2;
  580.         segment[3].x2 = (short) segment[0].x1;
  581.         segment[3].y1 = (short) segment[2].y2;
  582.         segment[3].y2 = (short) segment[0].y1;
  583.         
  584.         XDrawSegments (display, gw->goban.picture, mark_gc, segment, 4);
  585.         break;
  586.       }
  587.     }
  588.     
  589.     else {
  590.       s[len++] = c1;
  591.       if (c2 != 0)
  592.         s[len++] = c2;
  593.       
  594.       XQueryTextExtents (display, XGContextFromGC (mark_gc), s, len, &direction, &ascent, &descent, &extent);
  595.       
  596.       radius = extent.width + extent.descent + extent.ascent;
  597.       
  598.       if (radius < gw->goban.point_size - 1) {
  599.         if (gw->goban.points[x][y].free == 0)
  600.           XFillArc (display, gw->goban.picture, erase_gc, 
  601.             (int) (X - gw->goban.point_size) / 2 + 2, (int) (Y - gw->goban.point_size) / 2 + 2, 
  602.             (unsigned int) gw->goban.point_size - 4, (unsigned int) gw->goban.point_size - 4, 
  603.             0, 360 * 64);
  604.         else
  605.           XFillArc (display, gw->goban.picture, erase_gc,
  606.             (int) (X - radius) / 2, (int) (Y - radius) / 2, 
  607.             (unsigned int) radius, (unsigned int) radius, 
  608.             0, 360 * 64);
  609.         
  610.         XDrawString (display, gw->goban.picture, mark_gc,
  611.              (X - extent.width) / 2 - extent.lbearing + 1, 
  612.              (Y + extent.ascent - extent.descent) / 2 + 1, s, len);
  613.       }
  614.     }
  615.       
  616.     if (gw->goban.auto_redisplay == TRUE && XtIsRealized (w) == TRUE) {
  617.       event.x      = (X - gw->goban.point_size) / 2;
  618.       event.y      = (Y - gw->goban.point_size) / 2;
  619.       event.width  = gw->goban.point_size;
  620.       event.height = gw->goban.point_size;
  621.       
  622.       Redisplay (w, &event, (Region) NULL);
  623.     }
  624.       }
  625.     }
  626.   }
  627. }
  628.  
  629. /****************************************************************************************************************
  630.  */
  631.  
  632. /* ARGSUSED */
  633.  
  634. static void Redisplay (w, event, region)
  635. Widget        w;
  636. XExposeEvent *event;
  637. Region        region;
  638. {
  639.   GobanWidget gw     = (GobanWidget) w;
  640.   Position    x      = event->x;
  641.   Position    y      = event->y;
  642.   Dimension   width  = event->width;
  643.   Dimension   height = event->height;
  644.  
  645.   XCopyArea (XtDisplay (w), gw->goban.picture, XtWindow (w), gw->goban.copy_gc, x, y, width, height, x, y);
  646. }
  647.  
  648. /****************************************************************************************************************
  649.  */
  650.  
  651. /* ARGSUSED */
  652.  
  653. static void CvtStringToCursor (args, num_args, fromVal, toVal)
  654. XrmValuePtr   args;        /* unused */
  655. Cardinal     *num_args;    /* unused */
  656. XrmValuePtr   fromVal;
  657. XrmValuePtr   toVal;
  658. {
  659.   static int       cursor;
  660.   static XrmQuark  QWhiteStone;
  661.   static XrmQuark  QBlackStone;
  662.   static XrmQuark  QGrayStone;
  663.   XrmQuark         quark;
  664.   char             lowerName[256];
  665.   static Boolean   inited = FALSE;
  666.     
  667.   if (inited == FALSE) {
  668.     QWhiteStone  = XrmStringToQuark (XtEgbWhiteStone);
  669.     QBlackStone  = XrmStringToQuark (XtEgbBlackStone);
  670.     QGrayStone   = XrmStringToQuark (XtEgbGrayStone);
  671.     inited       = TRUE;
  672.   }
  673.  
  674.   XmuCopyISOLatin1Lowered  (lowerName, (String) fromVal->addr);
  675.   quark = XrmStringToQuark (lowerName);
  676.  
  677.   if (quark == QWhiteStone)
  678.     cursor = GbCWhiteStone;
  679.   else if (quark == QBlackStone)       
  680.     cursor = GbCBlackStone;
  681.   else if (quark == QGrayStone)         
  682.     cursor = GbCGrayStone;
  683.   else {
  684.     toVal->size = 0;
  685.     toVal->addr = NULL;
  686.     return;
  687.   }
  688.  
  689.   toVal->size = sizeof (cursor);
  690.   toVal->addr = (caddr_t) &cursor;
  691. }
  692.  
  693. /****************************************************************************************************************
  694.  */
  695.  
  696. static void ClassInitialize()
  697. {
  698.   XtAddConverter (XtRString, XtRInt, (XtConverter) CvtStringToCursor, NULL, 0);
  699. }
  700.  
  701. /****************************************************************************************************************
  702.  */
  703.  
  704. static void InitializePixmap (w)
  705. Widget w;
  706. {
  707.   GobanWidget  gw      = (GobanWidget) w;
  708.   Display     *display = XtDisplay (w);
  709.   Drawable     window  = RootWindowOfScreen (XtScreen (w));
  710.   Dimension    width   = w->core.width;
  711.   Dimension    height  = w->core.height;
  712.  
  713.   gw->goban.board   = XCreatePixmap (display, window, width, height, (unsigned int) DefaultDepthOfScreen (XtScreen (w)));
  714.   gw->goban.picture = XCreatePixmap (display, window, width, height, (unsigned int) DefaultDepthOfScreen (XtScreen (w)));
  715. }
  716.  
  717. /****************************************************************************************************************
  718.  */
  719.  
  720. static void InitializeGC (w)
  721. Widget w;
  722. {
  723.   GobanWidget  gw      = (GobanWidget) w;
  724.   Display     *display = XtDisplay (w);
  725.   XtGCMask     mask    = GCForeground | GCBackground | GCFont;
  726.   XGCValues    values;
  727.  
  728.   values.font             = gw->goban.font->fid;
  729.   values.background       = w->core.background_pixel;
  730.  
  731.   values.foreground       = gw->goban.white_fg;
  732.   gw->goban.white_fg_gc   = XCreateGC  (display, gw->goban.picture, mask, &values);
  733.   values.foreground       = gw->goban.white_bg;
  734.   gw->goban.white_bg_gc   = XCreateGC  (display, gw->goban.picture, mask, &values);
  735.   values.foreground       = gw->goban.white_bd;
  736.   gw->goban.white_bd_gc   = XCreateGC  (display, gw->goban.picture, mask, &values);
  737.  
  738.   values.foreground       = gw->goban.black_fg;
  739.   gw->goban.black_fg_gc   = XCreateGC  (display, gw->goban.picture, mask, &values);
  740.   values.foreground       = gw->goban.black_bg;
  741.   gw->goban.black_bg_gc   = XCreateGC  (display, gw->goban.picture, mask, &values);
  742.   values.foreground       = gw->goban.black_bd;
  743.   gw->goban.black_bd_gc   = XCreateGC  (display, gw->goban.picture, mask, &values);
  744.  
  745.   values.foreground       = gw->goban.foreground;
  746.   gw->goban.foreground_gc = XCreateGC  (display, gw->goban.picture, mask, &values);
  747.  
  748.   if (gw->core.background_pixmap != XtUnspecifiedPixmap) {
  749.     values.tile           = gw->core.background_pixmap;
  750.     values.fill_style     = FillTiled;
  751.     mask                 |= GCTile | GCFillStyle;
  752.   }
  753.  
  754.   values.foreground       = w->core.background_pixel;
  755.   values.background       = gw->goban.foreground;
  756.   gw->goban.background_gc = XCreateGC  (display, gw->goban.picture, mask, &values);
  757.  
  758.   gw->goban.copy_gc       = XCreateGC  (display, gw->goban.picture, (XtGCMask) 0, (XGCValues *) NULL);
  759. }
  760.  
  761. /****************************************************************************************************************
  762.  */ 
  763. static void InitializeCursor (w)
  764. Widget w;
  765. {
  766.   GobanWidget  gw      = (GobanWidget) w;
  767.   Display     *display = XtDisplay (w);
  768.   Drawable     window  = RootWindowOfScreen (XtScreen (w));
  769.   Pixel        black   = BlackPixel (display, DefaultScreen (display));
  770.   Pixel        white   = WhitePixel (display, DefaultScreen (display));
  771.  
  772.   static XColor black_color = { 0,    0,     0,     0  };  /* black */
  773.   static XColor white_color = { 0, 65535, 65535, 65535 };  /* white */
  774.  
  775.   /* Some teminals invert the mask with BlackPixel and WhitePixel     */
  776.   /* should use black and white instead of 1 and 0 but depth is 1 ... */
  777.   /* will probably have trouble with some special colormaps           */
  778.  
  779.   gw->goban.white_stone = XCreatePixmapFromBitmapData
  780.     (display, window, whitestone_bits, whitestone_width, whitestone_height, 1, 0, 1);
  781.   gw->goban.black_stone = XCreatePixmapFromBitmapData
  782.     (display, window, blackstone_bits, blackstone_width, blackstone_height, 1, 0, 1);
  783.   gw->goban.gray_stone  = XCreatePixmapFromBitmapData
  784.     (display, window, graystone_bits , graystone_width , graystone_height , 1, 0, 1);
  785.   gw->goban.mouse_mask  = XCreatePixmapFromBitmapData
  786.     (display, window, stonemask_bits , stonemask_width , stonemask_height , 1, 0, 1);
  787.  
  788.   gw->goban.white_cursor = 
  789.     XCreatePixmapCursor (display, gw->goban.white_stone, gw->goban.mouse_mask, 
  790.              &black_color, &white_color, whitestone_x_hot, whitestone_y_hot);
  791.   gw->goban.black_cursor = 
  792.     XCreatePixmapCursor (display, gw->goban.black_stone, gw->goban.mouse_mask, 
  793.              &black_color, &white_color, blackstone_x_hot, blackstone_y_hot);
  794.   gw->goban.gray_cursor  = 
  795.     XCreatePixmapCursor (display, gw->goban.gray_stone, gw->goban.mouse_mask,  
  796.              &black_color, &white_color, graystone_x_hot , graystone_y_hot );
  797.  
  798.   gw->goban.font_cursor  = XCreateFontCursor (display, XC_question_arrow);
  799. }
  800.   
  801. /****************************************************************************************************************
  802.  */
  803.  
  804. static void DestroyPixmap (w)
  805. Widget w;
  806. {
  807.   GobanWidget  gw      = (GobanWidget) w;
  808.   Display     *display = XtDisplay (w);
  809.  
  810.   XFreePixmap (display, gw->goban.picture);
  811.   XFreePixmap (display, gw->goban.board  );
  812. }
  813.  
  814. /****************************************************************************************************************
  815.  */
  816.  
  817. static void DestroyGC (w)
  818. Widget w;
  819. {
  820.   GobanWidget  gw      = (GobanWidget) w;
  821.   Display     *display = XtDisplay (w);
  822.  
  823.   XFreeGC (display, gw->goban.black_fg_gc  );
  824.   XFreeGC (display, gw->goban.black_bg_gc  );
  825.   XFreeGC (display, gw->goban.black_bd_gc  );
  826.   XFreeGC (display, gw->goban.white_fg_gc  );
  827.   XFreeGC (display, gw->goban.white_bg_gc  );
  828.   XFreeGC (display, gw->goban.white_bd_gc  );
  829.   XFreeGC (display, gw->goban.foreground_gc);
  830.   XFreeGC (display, gw->goban.background_gc);
  831.   XFreeGC (display, gw->goban.copy_gc      );
  832. }
  833.  
  834. /****************************************************************************************************************
  835.  */
  836.  
  837. static void Destroy (w)
  838. Widget w;
  839. {
  840.   GobanWidget  gw      = (GobanWidget) w;
  841.   Display     *display = XtDisplay (w);
  842.  
  843.   DestroyPixmap (w);
  844.   DestroyGC     (w);
  845.  
  846.   XFreePixmap (display, gw->goban.white_stone  );
  847.   XFreePixmap (display, gw->goban.black_stone  );
  848.   XFreePixmap (display, gw->goban.gray_stone   );
  849.   XFreePixmap (display, gw->goban.mouse_mask   );
  850.  
  851.   XFreeCursor (display, gw->goban.white_cursor );
  852.   XFreeCursor (display, gw->goban.black_cursor );
  853.   XFreeCursor (display, gw->goban.gray_cursor  );
  854.   XFreeCursor (display, gw->goban.font_cursor  );
  855. }
  856.  
  857. /****************************************************************************************************************
  858.  */
  859.  
  860. static void Realize (w, valuemaskp, attr)
  861. Widget                w;
  862. XtValueMask          *valuemaskp;
  863. XSetWindowAttributes *attr;
  864. {
  865.   GobanWidget  gw      = (GobanWidget) w;
  866.   
  867.   *valuemaskp |= CWCursor;
  868.  
  869.   switch (gw->goban.cursor) {
  870.   case GbCGrayStone  : attr->cursor = gw->goban.gray_cursor ; break;
  871.   case GbCBlackStone : attr->cursor = gw->goban.black_cursor; break;
  872.   case GbCWhiteStone : attr->cursor = gw->goban.white_cursor; break;
  873.   default            : attr->cursor = gw->goban.font_cursor ; break;
  874.   }
  875.   
  876.   XtCreateWindow (w, InputOutput, (Visual *) CopyFromParent, *valuemaskp, attr);
  877. }
  878.  
  879. /****************************************************************************************************************
  880.  */
  881.  
  882. static char *stars[18] = {
  883.   "",                /*  2  */  
  884.   "",                /*  3  */  
  885.   "",                /*  4  */  
  886.   "",                /*  5  */  
  887.   "",                /*  6  */  
  888.   "",                /*  7  */  
  889.   "cccffcff",            /*  8  */    
  890.   "cccgeegcgg",            /*  9  */  
  891.   "ccchhchh",            /* 10  */  
  892.   "cccfcifcfffiicifii",        /* 11  */  
  893.   "dddiidii",            /* 12  */  
  894.   "dddjggjdjj",            /* 13  */  
  895.   "dddkkdkk",            /* 14  */  
  896.   "dddhdlhdhhhlldlhll",        /* 15  */  
  897.   "dddmmdmm",            /* 16  */  
  898.   "dddidnidiiinndninn",        /* 17  */  
  899.   "dddoodoo",            /* 18  */  
  900.   "dddjdpjdjjjppdpjpp",        /* 19  */  
  901. };
  902.  
  903. static void DrawBoard (w)
  904. Widget w;
  905. {
  906.   GobanWidget  gw         = (GobanWidget) w;
  907.   Display     *display    = XtDisplay (w);
  908.   XSegment     segment[44];
  909.   int          segc;
  910.   Position     game_size  = (Position) gw->goban.game_size;
  911.   Position     point_size = (Position) gw->goban.point_size;
  912.   Position     star_size  = 4;
  913.   Position     xbase      = gw->goban.x_offset + point_size / 2;
  914.   Position     ybase      = gw->goban.y_offset - point_size / 2;
  915.   Position     xmin       = gw->goban.x_offset + point_size * gw->goban.left + 1;
  916.   Position     ymin       = gw->goban.y_offset - point_size * gw->goban.top  + 1;
  917.   Position     xmax       = gw->goban.x_offset + point_size * (gw->goban.right  + 1) - 1;
  918.   Position     ymax       = gw->goban.y_offset - point_size * (gw->goban.bottom - 1) - 1;
  919.   char        *star;
  920.   int          x;
  921.   int          y;
  922.  
  923.   XFillRectangle (display, gw->goban.board, gw->goban.background_gc, 0, 0, w->core.width, w->core.height);
  924.  
  925.   if (point_size > 0) {
  926.     segc = 0;
  927.     for (y = gw->goban.bottom - 1; y < gw->goban.top; y++, segc++) {
  928.       segment[segc].x1 = (short) Max ((int) xbase + point_size , xmin);
  929.       segment[segc].x2 = (short) Min ((int) xbase + point_size * game_size, xmax);
  930.       segment[segc].y1 = (short) (ybase - point_size * y);
  931.       segment[segc].y2 = (short) (ybase - point_size * y);
  932.     }
  933.     
  934.     for (x = gw->goban.left; x <= gw->goban.right; x++, segc++) {
  935.       segment[segc].x1 = (short) (xbase + point_size * x);
  936.       segment[segc].x2 = (short) (xbase + point_size * x);
  937.       segment[segc].y1 = (short) Max (ybase - point_size * (game_size - 1), ymin);
  938.       segment[segc].y2 = (short) Min (ybase, ymax);
  939.     }
  940.     
  941.     if (gw->goban.top == gw->goban.game_size) {
  942.       segment[segc].x1 = (short) Max (xbase + point_size - 1, xmin);
  943.       segment[segc].x2 = (short) Min (xbase + point_size * game_size + 1, xmax);
  944.       segment[segc].y1 = (short) (ybase - point_size * (game_size - 1) - 1);
  945.       segment[segc].y2 = (short) (ybase - point_size * (game_size - 1) - 1);
  946.       segc++;
  947.     }
  948.     
  949.     if (gw->goban.bottom == 1) {
  950.       segment[segc].x1 = (short) Max (xbase + point_size - 1, xmin);
  951.       segment[segc].x2 = (short) Min (xbase + point_size * game_size + 1, xmax);
  952.       segment[segc].y1 = (short) (ybase + 1);
  953.       segment[segc].y2 = (short) (ybase + 1);
  954.       segc++;
  955.     }
  956.     
  957.     if (gw->goban.left == 1) {
  958.       segment[segc].x1 = (short) (xbase + point_size - 1);
  959.       segment[segc].x2 = (short) (xbase + point_size - 1);
  960.       segment[segc].y1 = (short) Max (ybase - point_size * (game_size - 1) - 1, ymin); 
  961.       segment[segc].y2 = (short) Min (ybase + 1, ymax);
  962.       segc++;
  963.     }
  964.     
  965.     if (gw->goban.right == gw->goban.game_size) {
  966.       segment[segc].x1 = (short) (xbase + point_size * game_size + 1);
  967.       segment[segc].x2 = (short) (xbase + point_size * game_size + 1);
  968.       segment[segc].y1 = (short) Max (ybase - point_size * (game_size - 1) - 1, ymin);
  969.       segment[segc].y2 = (short) Min (ybase + 1, ymax);
  970.       segc++;
  971.     }
  972.     
  973.     XDrawSegments (display, gw->goban.board, gw->goban.foreground_gc, segment, segc);
  974.     
  975.     if (point_size > 8) {
  976.       star_size = (point_size > 10) ? 4 : 2;
  977.       star      = stars[game_size - 2];
  978.       
  979.       while (*star != '\0') {
  980.     x = *star++ - 'a' + 1;
  981.     y = *star++ - 'a' + 1;
  982.     
  983.     if (x >= gw->goban.left && x <= gw->goban.right && y >= gw->goban.bottom && y <= gw->goban.top) {
  984.       x = gw->goban.x_offset + (point_size * (2 * x + 1)) / 2;
  985.       y = gw->goban.y_offset - (point_size * (2 * y - 1)) / 2;
  986.       
  987.       XDrawArc (display, gw->goban.board, gw->goban.foreground_gc, 
  988.             (int) x - star_size / 2, (int) y - star_size / 2, 
  989.             (unsigned int) star_size, (unsigned int) star_size, 
  990.             0, 64 * 360);
  991.       XFillArc (display, gw->goban.board, gw->goban.foreground_gc, 
  992.             (int) x - star_size / 2, (int) y - star_size / 2, 
  993.             (unsigned int) star_size, (unsigned int) star_size, 
  994.             0, 64 * 360);
  995.     }
  996.       }
  997.     }
  998.   }
  999.  
  1000.   XCopyArea (display, gw->goban.board, gw->goban.picture, gw->goban.copy_gc, 0, 0, 
  1001.          w->core.width, w->core.height, 0, 0);
  1002. }
  1003.  
  1004. /****************************************************************************************************************
  1005.  */
  1006.  
  1007. static void DrawCoordinates (w)
  1008. Widget w;
  1009. {
  1010.   GobanWidget  gw         = (GobanWidget) w;
  1011.   Display     *display    = XtDisplay (w);
  1012.   XCharStruct  extent;
  1013.   int          point_size = gw->goban.point_size;
  1014.   char         s[2];
  1015.   int          len;
  1016.   int          ascent;
  1017.   int          descent;
  1018.   int          direction;
  1019.   int          xbase;
  1020.   int          ybase;
  1021.   int          x;
  1022.   int          y;
  1023.   unsigned int width;
  1024.   unsigned int height;
  1025.  
  1026.   s[0] = s[1] = '8';
  1027.   XQueryTextExtents (display, XGContextFromGC (gw->goban.foreground_gc),
  1028.              s, 2, &direction, &ascent, &descent, &extent);
  1029.  
  1030.   if ((point_size > extent.width + 2) && (point_size > extent.ascent + extent.descent + 2)) {
  1031.     xbase = 2 * gw->goban.x_offset + point_size;
  1032.     ybase = 2 * gw->goban.y_offset - point_size;
  1033.  
  1034.     if (gw->goban.display_coordinates == TRUE) {
  1035.     
  1036.       for (x = gw->goban.left; x <= gw->goban.right; x++) {
  1037.     s[0] = 'A' - 1 + ((x > 8) ? (x + 1) : x);
  1038.     XQueryTextExtents (display, XGContextFromGC (gw->goban.foreground_gc),
  1039.                s, 1, &direction, &ascent, &descent, &extent);
  1040.  
  1041.     XDrawString (display, gw->goban.board, gw->goban.foreground_gc, 
  1042.              (xbase - extent.width) / 2 + point_size * x - extent.lbearing + 1, 
  1043.              (ybase + extent.ascent - extent.descent) / 2 - point_size * gw->goban.top + 1, s, 1);
  1044.     XDrawString (display, gw->goban.board, gw->goban.foreground_gc, 
  1045.              (xbase - extent.width) / 2 + point_size * x - extent.lbearing + 1, 
  1046.              (ybase + extent.ascent - extent.descent) / 2 - point_size * (gw->goban.bottom - 2) + 1, s, 1);
  1047.       }
  1048.     }
  1049.  
  1050.     x      = gw->goban.x_offset + point_size * gw->goban.left;
  1051.     y      = gw->goban.y_offset - point_size * (gw->goban.top + 1);
  1052.     width  = point_size * (gw->goban.right - gw->goban.left + 1);
  1053.     height = point_size;
  1054.     
  1055.     if (gw->goban.display_coordinates == FALSE)
  1056.       XFillRectangle (display, gw->goban.board, gw->goban.background_gc, x, y, width, height);
  1057.     XCopyArea (display, gw->goban.board, gw->goban.picture, gw->goban.copy_gc, x, y, width, height, x, y);
  1058.  
  1059.     y      = gw->goban.y_offset - point_size * (gw->goban.bottom - 1);
  1060.  
  1061.     if (gw->goban.display_coordinates == FALSE)
  1062.       XFillRectangle (display, gw->goban.board, gw->goban.background_gc, x, y, width, height);
  1063.     XCopyArea (display, gw->goban.board, gw->goban.picture, gw->goban.copy_gc, x, y, width, height, x, y);
  1064.     
  1065.     ybase += 2 * point_size;
  1066.  
  1067.     for (y = gw->goban.bottom; y <= gw->goban.top; y++) {
  1068.       if (gw->goban.display_coordinates == TRUE) {
  1069.     len = 0;
  1070.     if (y > 9)
  1071.       s[len++] = '1';
  1072.     s[len++] = '0' + y % 10;
  1073.     XQueryTextExtents (display, XGContextFromGC (gw->goban.foreground_gc),
  1074.                s, len, &direction, &ascent, &descent, &extent);
  1075.  
  1076.     XDrawString (display, gw->goban.board, gw->goban.foreground_gc, 
  1077.              (xbase - extent.width) / 2 + point_size * (gw->goban.left  - 1) - extent.lbearing + 1, 
  1078.              (ybase + extent.ascent - extent.descent) / 2 - point_size * y + 1, s, len);
  1079.     XDrawString (display, gw->goban.board, gw->goban.foreground_gc, 
  1080.              (xbase - extent.width) / 2 + point_size * (gw->goban.right + 1) - extent.lbearing + 1, 
  1081.              (ybase + extent.ascent - extent.descent) / 2 - point_size * y + 1, s, len);
  1082.       }
  1083.     }
  1084.  
  1085.     x      = gw->goban.x_offset + point_size * (gw->goban.left  - 1);
  1086.     y      = gw->goban.y_offset - point_size * gw->goban.top;
  1087.     width  = point_size;
  1088.     height = point_size * (gw->goban.top - gw->goban.bottom + 1);;
  1089.     
  1090.     if (gw->goban.display_coordinates == FALSE)
  1091.       XFillRectangle (display, gw->goban.board, gw->goban.background_gc, x, y, width, height);
  1092.     XCopyArea (display, gw->goban.board, gw->goban.picture, gw->goban.copy_gc, x, y, width, height, x, y);
  1093.  
  1094.     x      = gw->goban.x_offset + point_size * (gw->goban.right + 1);
  1095.     
  1096.     if (gw->goban.display_coordinates == FALSE)
  1097.       XFillRectangle (display, gw->goban.board, gw->goban.background_gc, x, y, width, height);
  1098.     XCopyArea (display, gw->goban.board, gw->goban.picture, gw->goban.copy_gc, x, y, width, height, x, y);
  1099.   }
  1100.  
  1101. }
  1102.  
  1103. /****************************************************************************************************************
  1104.  */
  1105.  
  1106. static void InitializeSize (w)
  1107. Widget w;
  1108. {  
  1109.   GobanWidget  gw        = (GobanWidget) w;
  1110.   Position     bottom    = Min (gw->goban.bottom, gw->goban.top  );
  1111.   Position     left      = Min (gw->goban.left  , gw->goban.right);
  1112.   Position     top       = Max (gw->goban.bottom, gw->goban.top  );
  1113.   Position     right     = Max (gw->goban.left  , gw->goban.right);
  1114.   Dimension    game_size = gw->goban.game_size;
  1115.   Dimension    width;
  1116.   Dimension    height;
  1117.  
  1118.   game_size = (game_size > 1      && game_size <  20       ) ? game_size : 19;
  1119.   bottom    = (bottom    > 0      && bottom    <  game_size) ? bottom    : 1;
  1120.   left      = (left      > 0      && left      <  game_size) ? left      : 1;
  1121.   top       = (top       > bottom && top       <= game_size) ? top       : game_size;
  1122.   right     = (right     > left   && right     <= game_size) ? right     : game_size;
  1123.  
  1124.   width     = right - left   + 3;
  1125.   height    = top   - bottom + 3;
  1126.  
  1127.   if ((w->core.height == 0) && (w->core.width == 0)) {
  1128.     w->core.width  = gw->goban.point_size * width ;
  1129.     w->core.height = gw->goban.point_size * height;
  1130.   } 
  1131.  
  1132.   else 
  1133.     gw->goban.point_size = Min (w->core.width / width, w->core.height / height);
  1134.  
  1135.   gw->goban.game_size = game_size;
  1136.   gw->goban.bottom    = bottom;
  1137.   gw->goban.left      = left;
  1138.   gw->goban.top       = top;
  1139.   gw->goban.right     = right;
  1140.   gw->goban.x_offset  = (int) (w->core.width  - gw->goban.point_size * (width  + 2 * left - 2)) / 2;
  1141.   gw->goban.y_offset  = (int) (w->core.height - gw->goban.point_size * (height - 2 * top  - 2)) / 2;
  1142. }
  1143.  
  1144. /****************************************************************************************************************
  1145.  */
  1146.  
  1147. /* ARGSUSED */
  1148.  
  1149. static void Initialize (request, new)
  1150. Widget request;
  1151. Widget new;
  1152. {
  1153.   InitializeSize   (new);
  1154.   InitializePixmap (new);
  1155.   InitializeGC     (new);
  1156.   InitializeCursor (new);
  1157.   DrawBoard        (new);
  1158.   DrawCoordinates  (new);
  1159.   GbClearBoard     (new);
  1160. }
  1161.  
  1162. /****************************************************************************************************************
  1163.  */
  1164.  
  1165. static void DrawPoint (w, x, y, color)
  1166. Widget      w;
  1167. int         x;
  1168. int         y;
  1169. GbPointState color;
  1170. {
  1171.   GobanWidget   gw      = (GobanWidget) w;
  1172.   Display      *display = XtDisplay (w);
  1173.   unsigned int  size    = (unsigned int) gw->goban.point_size - 2;
  1174.   XExposeEvent  event;
  1175.   int           X;
  1176.   int           Y;
  1177.  
  1178.   if (size > 1) {
  1179.     X = gw->goban.x_offset + gw->goban.point_size * x + 1;
  1180.     Y = gw->goban.y_offset - gw->goban.point_size * y + 1;
  1181.     
  1182.     switch (color)
  1183.       {
  1184.       case GbBlackStone :
  1185.     XFillArc (display, gw->goban.picture, gw->goban.black_bg_gc, X, Y, size, size, 0, 360 * 64);
  1186.     XDrawArc (display, gw->goban.picture, gw->goban.black_bd_gc, X, Y, size, size, 0, 360 * 64);
  1187.     XDrawArc (display, gw->goban.picture, gw->goban.black_fg_gc, X + (int) size / 6, Y + (int) size / 6, 
  1188.           (size * 2) / 3, (size * 2) / 3, -15 * 64, -60 * 64);
  1189.     break;
  1190.       case GbWhiteStone :
  1191.     XFillArc (display, gw->goban.picture, gw->goban.white_bg_gc, X, Y, size, size, 0, 360 * 64);
  1192.     XDrawArc (display, gw->goban.picture, gw->goban.white_bd_gc, X, Y, size, size, 0, 360 * 64);
  1193.     XDrawArc (display, gw->goban.picture, gw->goban.white_fg_gc, X + (int) size / 6, Y + (int) size / 6, 
  1194.           (size * 2) / 3, (size * 2) / 3, -15 * 64, -60 * 64);
  1195.     break;
  1196.       case GbEmptyPoint :
  1197.     XCopyArea (XtDisplay (w), gw->goban.board, gw->goban.picture, gw->goban.copy_gc,
  1198.            X, Y, gw->goban.point_size, gw->goban.point_size, X, Y); 
  1199.     break;
  1200.       }
  1201.     
  1202.     if (gw->goban.auto_redisplay == TRUE && XtIsRealized (w) == TRUE) {
  1203.       event.x      = X - 1;
  1204.       event.y      = Y - 1;
  1205.       event.width  = gw->goban.point_size;
  1206.       event.height = gw->goban.point_size;
  1207.  
  1208.       Redisplay (w, &event, (Region) NULL);
  1209.     }
  1210.   }
  1211. }
  1212.  
  1213. /****************************************************************************************************************
  1214.  */
  1215.  
  1216. static void RedrawStones (w)
  1217. Widget w;
  1218. {
  1219.   GobanWidget  gw         = (GobanWidget) w;
  1220.   Boolean      redisplay  = gw->goban.auto_redisplay;
  1221.   Position     x;
  1222.   Position     y;
  1223.  
  1224.   gw->goban.auto_redisplay = FALSE;
  1225.  
  1226.   for (x = gw->goban.left; x <= gw->goban.right; x++)
  1227.     for (y = gw->goban.bottom; y <= gw->goban.top; y++) {
  1228.       if (gw->goban.points[x][y].free == 0) {
  1229.     if (gw->goban.points[x][y].black == 1)
  1230.       DrawPoint (w, x, y, GbBlackStone);
  1231.     else
  1232.       DrawPoint (w, x, y, GbWhiteStone);
  1233.     if (gw->goban.points[x][y].num > 0)
  1234.       GbSetNum (w, x, y, (int) gw->goban.points[x][y].num);
  1235.       }
  1236.  
  1237.       if (gw->goban.points[x][y].mark1 != 0 || gw->goban.points[x][y].mark2 != 0)
  1238.     GbSetMark (w, x, y, gw->goban.points[x][y].mark1, gw->goban.points[x][y].mark2);
  1239.     }
  1240.  
  1241.   gw->goban.auto_redisplay = redisplay;
  1242.  
  1243.   if (redisplay == TRUE)
  1244.     GbRedisplayBoard (w);
  1245. }
  1246.  
  1247. /****************************************************************************************************************
  1248.  */
  1249.  
  1250. static void Resize (w)
  1251. Widget w;
  1252. {
  1253.   DestroyPixmap    (w);
  1254.   DestroyGC        (w);
  1255.   InitializeSize   (w);
  1256.   InitializePixmap (w);
  1257.   InitializeGC     (w);
  1258.   DrawBoard        (w);
  1259.   DrawCoordinates  (w);
  1260.   RedrawStones     (w);
  1261. }
  1262.  
  1263. /****************************************************************************************************************
  1264.  */
  1265.  
  1266. /* ARGSUSED */
  1267.  
  1268. static Boolean SetValues (current, request, new)
  1269. Widget current;
  1270. Widget request;
  1271. Widget new;
  1272. {
  1273.   GobanWidget gnew      = (GobanWidget) new;
  1274.   GobanWidget gcurrent  = (GobanWidget) current;
  1275.   Boolean     redisplay = FALSE;
  1276.  
  1277.   if (gnew->goban.point_size != gcurrent->goban.point_size)
  1278.     gnew->goban.point_size = gcurrent->goban.point_size;
  1279.  
  1280.   if (XtIsRealized (new)) {
  1281.     if (gnew->goban.cursor != gcurrent->goban.cursor) {
  1282.  
  1283.       switch (gnew->goban.cursor) {
  1284.  
  1285.       case GbCGrayStone  : 
  1286.     XDefineCursor (XtDisplay (new), XtWindow (new), gnew->goban.gray_cursor);
  1287.     break;
  1288.       case GbCBlackStone : 
  1289.     XDefineCursor (XtDisplay (new), XtWindow (new), gnew->goban.black_cursor);
  1290.     break;
  1291.       case GbCWhiteStone : 
  1292.     XDefineCursor (XtDisplay (new), XtWindow (new), gnew->goban.white_cursor);
  1293.     break;
  1294.       default :
  1295.     XFreeCursor (XtDisplay (new), gnew->goban.font_cursor );
  1296.     gnew->goban.font_cursor = XCreateFontCursor (XtDisplay (new), (unsigned int) gnew->goban.cursor);
  1297.     XDefineCursor (XtDisplay (new), XtWindow (new), gnew->goban.font_cursor);
  1298.       }
  1299.     }
  1300.   }
  1301.  
  1302.   if (gnew->goban.game_size != gcurrent->goban.game_size) 
  1303.     if (gnew->goban.game_size > 1 && gnew->goban.game_size < 20) {
  1304.  
  1305.       gnew->goban.bottom = 1;
  1306.       gnew->goban.left   = 1;
  1307.       gnew->goban.top    = gnew->goban.game_size;
  1308.       gnew->goban.right  = gnew->goban.game_size;
  1309.       
  1310.       InitializeSize   (new);
  1311.       DrawBoard        (new);
  1312.       DrawCoordinates  (new);
  1313.       GbClearBoard     (new);
  1314.       
  1315.       redisplay = TRUE;
  1316.     }
  1317.     else
  1318.       gnew->goban.game_size = gcurrent->goban.game_size;
  1319.  
  1320.   else if (gnew->goban.top    != gcurrent->goban.top   ||
  1321.        gnew->goban.left   != gcurrent->goban.left  ||
  1322.        gnew->goban.right  != gcurrent->goban.right ||
  1323.        gnew->goban.bottom != gcurrent->goban.bottom) {
  1324.  
  1325.     InitializeSize  (new);
  1326.     DrawBoard       (new);
  1327.     DrawCoordinates (new);
  1328.     RedrawStones    (new);
  1329.  
  1330.     redisplay = TRUE;
  1331.   }
  1332.  
  1333.   else if (new->core.background_pixel != current->core.background_pixel || 
  1334.            gnew->goban.foreground     != gcurrent->goban.foreground     ||
  1335.            gnew->goban.white_fg       != gcurrent->goban.white_fg       ||
  1336.            gnew->goban.white_bg       != gcurrent->goban.white_bg       ||
  1337.            gnew->goban.white_bd       != gcurrent->goban.white_bd       ||
  1338.            gnew->goban.black_fg       != gcurrent->goban.black_fg       ||
  1339.            gnew->goban.black_bg       != gcurrent->goban.black_bg       ||
  1340.            gnew->goban.black_bd       != gcurrent->goban.black_bd       ) {
  1341.  
  1342.     DestroyGC        (new);
  1343.     InitializeGC     (new);
  1344.     DrawBoard        (new);
  1345.     DrawCoordinates  (new);
  1346.     RedrawStones     (new);
  1347.  
  1348.     redisplay = TRUE;
  1349.   }
  1350.  
  1351.   if (gnew->goban.display_coordinates != gcurrent->goban.display_coordinates) {
  1352.     DrawCoordinates (new);
  1353.  
  1354.     redisplay = TRUE;
  1355.   }
  1356.  
  1357.   return (gnew->goban.auto_redisplay == True) ? redisplay : False;
  1358. }
  1359.  
  1360. /****************************************************************************************************************
  1361.  */
  1362. SHAR_EOF
  1363. fi # end of overwriting check
  1364. if test -f 'node.c'
  1365. then
  1366.     echo shar: will not over-write existing file "'node.c'"
  1367. else
  1368. cat << \SHAR_EOF > 'node.c'
  1369. /****************************************************************************************************************
  1370.  *
  1371.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  1372.  *
  1373.  *  This program is distributed in the hope that it will be useful.
  1374.  *  Use and copying of this software and preparation of derivative works
  1375.  *  based upon this software are permitted, so long as the following
  1376.  *  conditions are met:
  1377.  *       o credit to the authors is acknowledged following current
  1378.  *         academic behaviour
  1379.  *       o no fees or compensation are charged for use, copies, or
  1380.  *         access to this software
  1381.  *       o this copyright notice is included intact.
  1382.  *  This software is made available AS IS, and no warranty is made about 
  1383.  *  the software or its performance. 
  1384.  * 
  1385.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  1386.  *  Send them to    dumesnil@etca.fr   or to:
  1387.  *       
  1388.  *       Antoine de Maricourt
  1389.  *       ETCA CREA-SP
  1390.  *       16 bis, avenue Prieur de la Cote d'Or
  1391.  *       94114 Arcueil Cedex
  1392.  *       France
  1393.  */
  1394.  
  1395. #include "sg.h"
  1396.  
  1397. static void bcopy (b1, b2, length)
  1398. char *b1;
  1399. char *b2;
  1400. int   length;
  1401. {
  1402.   if (length > 0)
  1403.     if ((long) (b2 - b1) < 0)
  1404.       while (length-- > 0)
  1405.     *b2++ = *b1++;
  1406.  
  1407.     else {
  1408.       b2 += length;
  1409.       b1 += length;
  1410.  
  1411.       while (length-- > 0) 
  1412.     *--b2 = *--b1;
  1413.     }
  1414. }
  1415.  
  1416. static void bzero (b, length)
  1417. char *b;
  1418. int   length;
  1419. {
  1420.   if (length > 0)
  1421.     while (length-- > 0)
  1422.       *b++ = '\0';
  1423. }
  1424.  
  1425. /*******************************************************************************************************
  1426.  *
  1427.  *    Recopie la chaine <src> a la suite de la chaine <*dst>. La memoire est allouee par malloc et les
  1428.  *    deux chaines sont supposees etre terminees par le caractere <end>.
  1429.  */
  1430.  
  1431. void SG_strcat (dst, src, end)
  1432. char   **dst;
  1433. char    *src;
  1434. char     end;
  1435. {
  1436.   char *ptr;
  1437.   int   src_size = 0;
  1438.   int   dst_size = 0;
  1439.  
  1440.   if ( src != NULL) { ptr =  src; while (*ptr++ != end) src_size++; }
  1441.   if (*dst != NULL) { ptr = *dst; while (*ptr++ != end) dst_size++; }
  1442.  
  1443.   if (src_size > 0) {
  1444.     ptr = (char*) malloc ((unsigned) src_size + dst_size + 1);
  1445.  
  1446.     (void) bcopy (*dst, ptr           , dst_size    );
  1447.     (void) bcopy ( src, ptr + dst_size, src_size + 1);
  1448.  
  1449.     (void) free (*dst);
  1450.     *dst = ptr;
  1451.   }
  1452. }
  1453.  
  1454. /*******************************************************************************************************
  1455.  *
  1456.  *    Recopie la chaine <src> a la place de la chaine *<dst>. Les deux chaines sont terminees par
  1457.  *    le caractere <end>.
  1458.  */
  1459.  
  1460. void SG_strcpy (dst, src, end)
  1461. char   **dst;
  1462. char    *src;
  1463. char     end;
  1464. {
  1465.   char *ptr;
  1466.   int   src_size = 0;
  1467.   int   dst_size = 0;
  1468.  
  1469.   if ( src != NULL) { ptr =  src; while (*ptr++ != end) src_size++; }
  1470.   if (*dst != NULL) { ptr = *dst; while (*ptr++ != end) dst_size++; }
  1471.  
  1472.   if (src_size == dst_size)
  1473.     (void) bcopy (src, *dst, src_size);
  1474.  
  1475.   else {
  1476.     (void) free (*dst);
  1477.     *dst = (char*) malloc ((unsigned) src_size + 1);
  1478.     (void) bcopy (src, *dst, src_size + 1);
  1479.   }
  1480. }
  1481.  
  1482. /*******************************************************************************************************
  1483.  *
  1484.  *   Supprime le noeud <node> de l'arbre. Tous les pointeurs (up, down, right et left) sont remis
  1485.  *   a NULL pour ce noeud. La valeur retournee est le noeud lui-meme : il est necessaire d'appeler
  1486.  *   SG_FreeNode pour recuperer la place memoire associee et liberer les proprietes.
  1487.  */
  1488.  
  1489. SG_NodePtr SG_RemoveNode (node)
  1490. SG_NodePtr node;
  1491. {
  1492.   if (node->up != NULL) {
  1493.     node->up->down  = node->right;
  1494.     if (node->right != NULL)
  1495.       node->right->up = node->up;
  1496.     node->up        = NULL;
  1497.   }
  1498.  
  1499.   if (node->left != NULL && node->right != NULL) {
  1500.     node->left->right = node->right;
  1501.     node->right->left = node->left;
  1502.   }
  1503.  
  1504.   else if (node->right != NULL)
  1505.     node->right->left = NULL;
  1506.  
  1507.   else if (node->left != NULL)
  1508.     node->left->right = NULL;
  1509.  
  1510.   node->left        = NULL;
  1511.   node->right       = NULL;
  1512.  
  1513.   return node;
  1514. }
  1515.  
  1516. /*******************************************************************************************************
  1517.  *
  1518.  *   Libere le noeud <node>. Cette fonction est appelee recursivement sur les fils et les freres
  1519.  *   de ce noeud. La liste des proprietes est liberee par la meme occasion
  1520.  */
  1521.  
  1522. void SG_FreeNode (node)
  1523. SG_NodePtr node;
  1524. {
  1525.   SG_PropertyPtr property;
  1526.   SG_PropertyPtr next_property;
  1527.   SG_NodePtr     next_node;
  1528.  
  1529.  free_node :
  1530.  
  1531.   if (node != NULL) {
  1532.     if (node->right != NULL)
  1533.       SG_FreeNode (node->right);
  1534.  
  1535.     next_property = node->property;
  1536.     
  1537.     while (next_property != NULL) {
  1538.       property      = next_property;
  1539.       next_property = property->next;
  1540.       
  1541.       switch (property->id) {
  1542.       case SG_Letters     :
  1543.       case SG_Comment     :
  1544.       case SG_GameComment :
  1545.       case SG_GameName    :
  1546.       case SG_nodeName    :
  1547.       case SG_EVent       :
  1548.       case SG_ROund       :
  1549.       case SG_DaTe        :
  1550.       case SG_PlaCe       :
  1551.       case SG_REsult      :
  1552.       case SG_USer        :
  1553.       case SG_TiMe        :
  1554.       case SG_SOurce      :
  1555.       case SG_BlackRank   :
  1556.       case SG_WhiteRank   :
  1557.       case SG_BlackSpec   :
  1558.       case SG_WhiteSpec   :
  1559.       case SG_HAndicap    :
  1560.       case SG_KoMi        :
  1561.       case SG_PlayerBlack :
  1562.       case SG_PlayerWhite :
  1563.       case SG_BlackLeft   :
  1564.       case SG_WhiteLeft   :
  1565.     free ((char *) property->data.pvalue);
  1566.     break;
  1567.       }
  1568.       
  1569.       (void) free ((char *) property);
  1570.     }
  1571.  
  1572.     (void) free ((char *) node->setup);
  1573.  
  1574.     next_node = node->down;
  1575.     (void) free ((char *) node);
  1576.  
  1577.     node = next_node;
  1578.     goto free_node;
  1579.   }
  1580. }
  1581.  
  1582. /*******************************************************************************************************
  1583.  *
  1584.  *   Retourne un nouveau noeud alloue par malloc. Tous les champs sont remis a zero.
  1585.  */
  1586.  
  1587. static SG_NodePtr make_node ()
  1588. {
  1589.   SG_NodePtr node;
  1590.  
  1591.   node = (SG_NodePtr) malloc ((unsigned) sizeof (SG_Node));
  1592.  
  1593.   node->num      = -1;
  1594.   node->color    = SG_EmptyPoint;
  1595.   node->x        = 0;
  1596.   node->y        = 0;
  1597.   node->player   = SG_EmptyPoint;
  1598.   node->setup    = NULL;
  1599.   node->property = NULL;
  1600.   node->up       = NULL;
  1601.   node->down     = NULL;
  1602.   node->left     = NULL;
  1603.   node->right    = NULL;
  1604.  
  1605.   return node;
  1606. }
  1607.  
  1608. /*******************************************************************************************************
  1609.  *
  1610.  */
  1611.  
  1612. SG_NodePtr SG_MakeNode (node, type)
  1613. SG_NodePtr node;
  1614. int        type;
  1615. {
  1616.   SG_NodePtr new = NULL;
  1617.  
  1618.   switch (type) {
  1619.  
  1620.   case SG_Event :
  1621.     new = make_node ();
  1622.  
  1623.     if (node != NULL) {
  1624.       do {
  1625.     while (node->up != NULL)
  1626.       node = node->up;
  1627.     while (node->left != NULL)
  1628.       node = node->left;
  1629.       } while (node->up != NULL);
  1630.       
  1631.       while (node->right != NULL)
  1632.     node = node->right;
  1633.       
  1634.       node->right = new;
  1635.       new->left   = node;
  1636.     }
  1637.       
  1638.     new->type   = SG_EventType;
  1639.     break;
  1640.  
  1641.   case SG_Move    :
  1642.   case SG_Diagram :
  1643.     new = make_node ();
  1644.  
  1645.     node->down  = new;
  1646.     new->up     = node;
  1647.  
  1648.     if (type == SG_Move)
  1649.       new->type   = SG_MoveType;
  1650.     else
  1651.       new->type   = SG_DiagramType;
  1652.     break;
  1653.  
  1654.   case SG_VariationMove    :
  1655.   case SG_VariationDiagram :
  1656.  
  1657.     new = make_node ();
  1658.  
  1659.     while (node->right != NULL)
  1660.       node = node->right;
  1661.  
  1662.     node->right = new;
  1663.     new->left   = node;
  1664.  
  1665.     if (type == SG_VariationMove)
  1666.       new->type   = SG_MoveType;
  1667.     else
  1668.       new->type   = SG_DiagramType;
  1669.  
  1670.     break;
  1671.   }
  1672.   
  1673.   return new;
  1674. }
  1675.  
  1676. /*******************************************************************************************************
  1677.  *
  1678.  */
  1679.  
  1680. SG_PropertyPtr SG_GetProperty (node, id)
  1681. SG_NodePtr node;
  1682. int        id;
  1683. {
  1684.   SG_PropertyPtr property = node->property;
  1685.   
  1686.   while (property != NULL) {
  1687.     if (property->id == id)
  1688.       break;
  1689.     property = property->next;
  1690.   }
  1691.   
  1692.   return property;
  1693. }
  1694.  
  1695. /*******************************************************************************************************
  1696.  *
  1697.  */
  1698.  
  1699. void SG_MakeProperty (node, id, value)
  1700. SG_NodePtr node;
  1701. int        id;
  1702. long       value;
  1703. {
  1704.   SG_PropertyPtr property;
  1705.  
  1706.   property = SG_GetProperty (node, id);
  1707.  
  1708.   if (property == NULL) {
  1709.     if (node->property != NULL) {
  1710.       property = node->property;
  1711.   
  1712.       while (property->next != NULL)
  1713.     property = property->next;
  1714.  
  1715.       property->next = (SG_PropertyPtr) malloc ((unsigned) sizeof (SG_Property));
  1716.       property       = property->next;
  1717.     }
  1718.  
  1719.     else 
  1720.       property = node->property = (SG_PropertyPtr) malloc ((unsigned) sizeof (SG_Property));
  1721.  
  1722.     (void) bzero ((char *) property, sizeof (SG_Property));
  1723.   }
  1724.  
  1725.   property->id = id;
  1726.   
  1727.   switch (id) {
  1728.     
  1729.   case SG_unVieW :
  1730.   case SG_ko     :
  1731.  
  1732.   case SG_KO     :
  1733.     property->data.ivalue = value;
  1734.     break;
  1735.     
  1736.   case SG_SiZe :
  1737.   case SG_VieW :
  1738.     property->data.pvalue = (unsigned char *) value;
  1739.     break;
  1740.     
  1741.   case SG_AddBlack :
  1742.   case SG_AddWhite :
  1743.   case SG_AddEmpty :
  1744.   case SG_Letters  :
  1745.   case SG_Marked   :
  1746.     SG_strcat ((char **) &property->data.pvalue, (char *) value, SG_EOS);
  1747.     break;
  1748.     
  1749.   case SG_Comment :
  1750.   case SG_GameComment :
  1751.     SG_strcat ((char **) &property->data.pvalue, (char *) value, '\0');
  1752.     break;
  1753.     
  1754.   case SG_GameName    :
  1755.   case SG_nodeName    :
  1756.   case SG_EVent       :
  1757.   case SG_ROund       :
  1758.   case SG_DaTe        :
  1759.   case SG_PlaCe       :
  1760.   case SG_REsult      :
  1761.   case SG_USer        :
  1762.   case SG_TiMe        :
  1763.   case SG_SOurce      :
  1764.   case SG_BlackRank   :
  1765.   case SG_WhiteRank   :
  1766.   case SG_BlackSpec   :
  1767.   case SG_WhiteSpec   :
  1768.   case SG_HAndicap    :
  1769.   case SG_KoMi        :
  1770.   case SG_PlayerBlack :
  1771.   case SG_PlayerWhite :
  1772.   case SG_BlackLeft   :
  1773.   case SG_WhiteLeft   :
  1774.     SG_strcpy ((char **) &property->data.pvalue, (char *) value, '\0');
  1775.     break;
  1776.   }
  1777. }
  1778.  
  1779. /*******************************************************************************************************
  1780.  *
  1781.  */
  1782.   
  1783. SHAR_EOF
  1784. fi # end of overwriting check
  1785. if test -f 'sg.c'
  1786. then
  1787.     echo shar: will not over-write existing file "'sg.c'"
  1788. else
  1789. cat << \SHAR_EOF > 'sg.c'
  1790. /****************************************************************************************************************
  1791.  *
  1792.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  1793.  *
  1794.  *  This program is distributed in the hope that it will be useful.
  1795.  *  Use and copying of this software and preparation of derivative works
  1796.  *  based upon this software are permitted, so long as the following
  1797.  *  conditions are met:
  1798.  *       o credit to the authors is acknowledged following current
  1799.  *         academic behaviour
  1800.  *       o no fees or compensation are charged for use, copies, or
  1801.  *         access to this software
  1802.  *       o this copyright notice is included intact.
  1803.  *  This software is made available AS IS, and no warranty is made about 
  1804.  *  the software or its performance. 
  1805.  * 
  1806.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  1807.  *  Send them to    dumesnil@etca.fr   or to:
  1808.  *       
  1809.  *       Antoine de Maricourt
  1810.  *       ETCA CREA-SP
  1811.  *       16 bis, avenue Prieur de la Cote d'Or
  1812.  *       94114 Arcueil Cedex
  1813.  *       France
  1814.  */
  1815.  
  1816. #include "sg.h"
  1817.  
  1818. SG_KWData sg_keywords[] = {
  1819.   { ""        , ""                , SG_Illegal         , 0                                           , },
  1820.   { "B"       , "Black"           , SG_Black           ,                SG_MoveType                  , },
  1821.   { "W"       , "White"           , SG_White           ,                SG_MoveType                  , },
  1822.   { "C"       , "Comment"         , SG_Comment         , SG_EventType | SG_MoveType | SG_DiagramType , },
  1823.   { "N"       , "nodeName"        , SG_nodeName        , SG_EventType | SG_MoveType | SG_DiagramType , },
  1824.   { "V"       , "nodeValue"       , SG_nodeValue       , SG_EventType | SG_MoveType | SG_DiagramType , },
  1825.   { "CH"      , "CHeck"           , SG_CHeck           ,                SG_MoveType                  , },
  1826.   { "GB"      , "GoodBlack"       , SG_GoodBlack       ,                SG_MoveType                  , },
  1827.   { "GW"      , "GoodWhite"       , SG_GoodWhite       ,                SG_MoveType                  , },
  1828.   { "TE"      , "TEsuji"          , SG_TEsuji          ,                SG_MoveType                  , },
  1829.   { "BM"      , "BadMove"         , SG_BadMove         ,                SG_MoveType                  , },
  1830.   { "BL"      , "BlackLeft"       , SG_BlackLeft       , SG_EventType | SG_MoveType | SG_DiagramType , },
  1831.   { "WL"      , "WhiteLeft"       , SG_WhiteLeft       , SG_EventType | SG_MoveType | SG_DiagramType , },
  1832.   { "FG"      , "FiGure"          , SG_FiGure          , SG_EventType | SG_MoveType | SG_DiagramType , },
  1833.   { "AB"      , "AddBlack"        , SG_AddBlack        , SG_EventType |               SG_DiagramType , },
  1834.   { "AW"      , "AddWhite"        , SG_AddWhite        , SG_EventType |               SG_DiagramType , },
  1835.   { "AE"      , "AddEmpty"        , SG_AddEmpty        , SG_EventType |               SG_DiagramType , },
  1836.   { "PL"      , "PLayer"          , SG_PLayer          , SG_EventType |               SG_DiagramType , },
  1837.   { "GN"      , "GameName"        , SG_GameName        , SG_EventType                                , },
  1838.   { "GC"      , "GameComment"     , SG_GameComment     , SG_EventType                                , },
  1839.   { "EV"      , "EVent"           , SG_EVent           , SG_EventType                                , },
  1840.   { "RO"      , "ROund"           , SG_ROund           , SG_EventType                                , },
  1841.   { "DT"      , "DaTe"            , SG_DaTe            , SG_EventType                                , },
  1842.   { "PC"      , "PlaCe"           , SG_PlaCe           , SG_EventType                                , },
  1843.   { "PB"      , "PlayerBlack"     , SG_PlayerBlack     , SG_EventType                                , },
  1844.   { "PW"      , "PlayerWhite"     , SG_PlayerWhite     , SG_EventType                                , },
  1845.   { "RE"      , "REsult"          , SG_REsult          , SG_EventType                                , },
  1846.   { "US"      , "USer"            , SG_USer            , SG_EventType                                , },
  1847.   { "TM"      , "TiMe"            , SG_TiMe            , SG_EventType                                , },
  1848.   { "SO"      , "SOurce"          , SG_SOurce          , SG_EventType                                , },
  1849.   { "GM"      , "GaMe"            , SG_GaMe            , SG_EventType                                , },
  1850.   { "SZ"      , "SiZe"            , SG_SiZe            , SG_EventType                                , },
  1851.   { "VW"      , "VieW"            , SG_VieW            , SG_EventType | SG_MoveType | SG_DiagramType , },
  1852.   { "BS"      , "BlackSpec"       , SG_BlackSpec       , SG_EventType                                , },
  1853.   { "WS"      , "WhiteSpec"       , SG_WhiteSpec       , SG_EventType                                , },
  1854.   { "EL"      , "EvaLuation"      , SG_EvaLuation      , SG_EventType | SG_MoveType | SG_DiagramType , },
  1855.   { "EX"      , "EXpected"        , SG_EXpected        , SG_EventType | SG_MoveType | SG_DiagramType , },
  1856.   { "SL"      , "SeLected"        , SG_SeLected        , SG_EventType | SG_MoveType | SG_DiagramType , },
  1857.   { "M"       , "Marked"          , SG_Marked          , SG_EventType | SG_MoveType | SG_DiagramType , },
  1858.   { "L"       , "Letters"         , SG_Letters         , SG_EventType | SG_MoveType | SG_DiagramType , },
  1859.   { "BR"      , "BlackRank"       , SG_BlackRank       , SG_EventType                                , },
  1860.   { "WR"      , "WhiteRank"       , SG_WhiteRank       , SG_EventType                                , },
  1861.   { "HA"      , "HAndicap"        , SG_HAndicap        , SG_EventType                                , },
  1862.   { "KM"      , "KoMi"            , SG_KoMi            , SG_EventType                                , },
  1863.   { "TB"      , "TerritoryBlack"  , SG_TerritoryBlack  , SG_EventType | SG_MoveType | SG_DiagramType , },
  1864.   { "TW"      , "TerritoryWhite"  , SG_TerritoryWhite  , SG_EventType | SG_MoveType | SG_DiagramType , },
  1865.   { "SC"      , "SeCure"          , SG_SeCure          , SG_EventType | SG_MoveType | SG_DiagramType , },
  1866.   { "RG"      , "ReGion"          , SG_ReGion          , SG_EventType | SG_MoveType | SG_DiagramType , },
  1867.   { "KO"      , "KO"              , SG_KO              ,                SG_MoveType                  , },
  1868.   { ""        , ""                , SG_Illegal         , 0                                           , },
  1869. };
  1870. SHAR_EOF
  1871. fi # end of overwriting check
  1872. if test -f 'read.c'
  1873. then
  1874.     echo shar: will not over-write existing file "'read.c'"
  1875. else
  1876. cat << \SHAR_EOF > 'read.c'
  1877. /****************************************************************************************************************
  1878.  *
  1879.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  1880.  *
  1881.  *  This program is distributed in the hope that it will be useful.
  1882.  *  Use and copying of this software and preparation of derivative works
  1883.  *  based upon this software are permitted, so long as the following
  1884.  *  conditions are met:
  1885.  *       o credit to the authors is acknowledged following current
  1886.  *         academic behaviour
  1887.  *       o no fees or compensation are charged for use, copies, or
  1888.  *         access to this software
  1889.  *       o this copyright notice is included intact.
  1890.  *  This software is made available AS IS, and no warranty is made about 
  1891.  *  the software or its performance. 
  1892.  * 
  1893.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  1894.  *  Send them to    dumesnil@etca.fr   or to:
  1895.  *       
  1896.  *       Antoine de Maricourt
  1897.  *       ETCA CREA-SP
  1898.  *       16 bis, avenue Prieur de la Cote d'Or
  1899.  *       94114 Arcueil Cedex
  1900.  *       France
  1901.  */
  1902.  
  1903. #include "sg.h"
  1904.  
  1905. static int size        = 19;
  1906.  
  1907. /*******************************************************************************************************
  1908.  */
  1909.  
  1910. static int read_int (i, file)
  1911. int   *i;
  1912. FILE  *file;
  1913. {
  1914.   int result = SG_OK;
  1915.   int ch     = ' ';
  1916.   int j      = 0;
  1917.  
  1918.   while (ch != '[' && ch != EOF) ch = getc (file);
  1919.   if (ch == EOF) return SG_EOFERR;
  1920.  
  1921.   ch = getc (file);
  1922.   if (! isdigit (ch)) goto error;
  1923.  
  1924.   while (isdigit (ch)) {
  1925.     j = 10 * j + ch - '0';
  1926.     ch = getc (file);
  1927.   }
  1928.   *i = j;
  1929.   goto ok;
  1930.  
  1931.  error :
  1932.   result = SG_NDGERR;
  1933.  
  1934.  ok :
  1935.   while (ch != ']' && ch != EOF) ch = getc (file);
  1936.   return result;
  1937. }
  1938.  
  1939. /*******************************************************************************************************
  1940.  *
  1941.  */
  1942.  
  1943. static int read_color (color, file)
  1944. unsigned char  *color;
  1945. FILE           *file;
  1946. {
  1947.   int result = SG_OK;
  1948.   int ch     = ' ';
  1949.  
  1950.   while (ch != '[' && ch != EOF) ch = getc (file);
  1951.   if (ch == EOF) return SG_EOFERR;
  1952.  
  1953.   ch = getc (file);
  1954.   switch (ch) {
  1955.   case 'B' : case 'b' : *color = SG_BlackStone; goto ok;
  1956.   case 'W' : case 'w' : *color = SG_WhiteStone; goto ok;
  1957.   }
  1958.  
  1959.   result = SG_NCLERR;
  1960.  
  1961.  ok :
  1962.   while (ch != ']' && ch != EOF) ch = getc (file);
  1963.   return result;
  1964. }
  1965.  
  1966. /*******************************************************************************************************
  1967.  */
  1968.  
  1969. static int read_stone (x, y, file)
  1970. unsigned char  *x;
  1971. unsigned char  *y;
  1972. FILE           *file;
  1973. {
  1974.   int result = SG_OK;
  1975.   int ch     = ' ';
  1976.  
  1977.   while (ch != '[' && ch != EOF) ch = getc (file);
  1978.   if (ch == EOF) return SG_EOFERR;
  1979.  
  1980.   ch = getc (file);
  1981.   if (! islower (ch)) goto error;
  1982.   *x = ch - 'a' + 1;
  1983.  
  1984.   ch = getc (file);
  1985.   if (! islower (ch)) goto error;
  1986.   *y = size + 1 - (ch - 'a' + 1);
  1987.  
  1988.   if (*y == 20 || *x == 20)
  1989.     *x = *y = 0;
  1990.  
  1991.   goto ok;
  1992.  
  1993.  error :
  1994.   result = SG_NSTERR;
  1995.  
  1996.  ok :
  1997.   while (ch != ']' && ch != EOF) ch = getc (file);
  1998.   return result;
  1999. }
  2000.  
  2001. /*******************************************************************************************************
  2002.  */
  2003.  
  2004. static int read_stones (color, dst, file)
  2005. unsigned char   color;     
  2006. unsigned char **dst;
  2007. FILE           *file;
  2008. {
  2009.   unsigned char  stones[361 * 2];
  2010.   unsigned char *pos = stones;
  2011.   int            ch  = ' ';
  2012.  
  2013.   do {
  2014.     if (read_stone (pos, pos + 1, file) == SG_OK) {
  2015.       *pos++ |= color;
  2016.       *pos++ |= color;
  2017.     }
  2018.  
  2019.     do ch = getc (file);
  2020.     while (isspace (ch) && ch != EOF);
  2021.  
  2022.     if (ch != EOF)
  2023.       (void) ungetc (ch, file);
  2024.  
  2025.   } while (ch == '[');
  2026.  
  2027.   if (pos != stones) {
  2028.     *pos++ = SG_EOS;
  2029.     SG_strcat ((char **) dst, (char *) stones, SG_EOS);
  2030.     return SG_OK;
  2031.   }
  2032.  
  2033.   else 
  2034.     return SG_NSTERR;
  2035. }
  2036.  
  2037. /*******************************************************************************************************
  2038.  */
  2039.  
  2040. static int read_text (dst, file, add)
  2041. unsigned char **dst;
  2042. FILE           *file;
  2043. int             add;
  2044. {
  2045.   char  text[5010];
  2046.   char *ptr = text;
  2047.   int   ch  = ' ';
  2048.  
  2049.   while (ch != '[' && ch != EOF) ch = getc (file);
  2050.   if (ch == EOF) return SG_NCTERR;
  2051.  
  2052.   while (ch != ']' && ch != EOF) {
  2053.     ch = getc (file);
  2054.  
  2055.     if ((unsigned) (ptr - text) < 5000) {
  2056.       if (ch == '\\') {
  2057.     *ptr = getc (file);
  2058.     
  2059.     switch (*ptr) {
  2060.     case 'n' : *ptr = '\n'; break;
  2061.     case 't' : *ptr = '\t'; break;
  2062.     }
  2063.     
  2064.     ptr++;
  2065.       }
  2066.       
  2067.       else
  2068.     *ptr++ = ch;
  2069.     }
  2070.  
  2071.     else {
  2072.       *ptr++ = '.';
  2073.       *ptr++ = '.';
  2074.       *ptr++ = '.';
  2075.     }
  2076.   }
  2077.   
  2078.   ptr--;
  2079.  
  2080.   if (ptr != text) {
  2081.     *ptr++ = '\0';
  2082.  
  2083.     if (add != 0)
  2084.       SG_strcat ((char **) dst, (char *) text, '\0');
  2085.     else 
  2086.       SG_strcpy ((char **) dst, (char *) text, '\0');
  2087.   }
  2088.  
  2089.   return SG_OK;
  2090. }
  2091.  
  2092. /*******************************************************************************************************
  2093.  */
  2094.    
  2095. static void read_property (node, cmd, file)
  2096. SG_NodePtr  node;
  2097. char       *cmd;
  2098. FILE       *file;
  2099. {
  2100.   int            id;
  2101.   SG_PropertyPtr property;
  2102.   char           top;
  2103.   char           left;
  2104.   char           bottom;
  2105.   char           right;
  2106.   unsigned char  x;
  2107.   unsigned char  y;
  2108.   int            i;
  2109.   long           value;
  2110.  
  2111.   for (id = 0; id < SG_MaxID; id++)
  2112.     if (strcmp (cmd, sg_keywords[id].keyword) == 0)
  2113.       break;
  2114.  
  2115.   id = sg_keywords[id].id;
  2116.  
  2117.   if ((id == SG_Black || id == SG_White) && node->type == SG_DiagramType) {
  2118.     if (node->setup == NULL)
  2119.       node->type = SG_MoveType;
  2120.  
  2121.     else
  2122.       id = (id == SG_Black) ? SG_AddBlack : SG_AddWhite;
  2123.   }
  2124.  
  2125.   if (node->type == SG_DiagramType || node->type == SG_EventType) {
  2126.     if (id == SG_Black) {
  2127.       id = SG_AddBlack;
  2128.       if (node->player == SG_EmptyPoint) node->player = SG_WhiteStone;
  2129.     }
  2130.  
  2131.     if (id == SG_White) {
  2132.       id = SG_AddWhite;
  2133.       if (node->player == SG_EmptyPoint) node->player = SG_BlackStone;
  2134.     }
  2135.   }
  2136.  
  2137.   if ((node->type & sg_keywords[id].node_id) != 0) 
  2138.     switch (id) {
  2139.       
  2140.     case SG_SiZe :
  2141.       if (read_int (&i, file) == SG_OK) {
  2142.     size = i;
  2143.     SG_MakeProperty (node, id, size);
  2144.       }
  2145.       break;
  2146.   
  2147.     case SG_Black :
  2148.       if (read_stone (&x, &y, file) == SG_OK) {
  2149.     node->x     = x;
  2150.     node->y     = y;
  2151.     node->color = SG_BlackStone;
  2152.       }
  2153.       break;
  2154.       
  2155.     case SG_White :
  2156.       if (read_stone (&x, &y, file) == SG_OK) {
  2157.     node->x     = x;
  2158.     node->y     = y;
  2159.     node->color = SG_WhiteStone;
  2160.       }
  2161.       break;
  2162.       
  2163.     case SG_AddBlack :
  2164.       (void) read_stones (SG_SETB, &node->setup, file);
  2165.       break;
  2166.       
  2167.     case SG_AddWhite :
  2168.       (void) read_stones (SG_SETW, &node->setup, file);
  2169.       break;
  2170.       
  2171.     case SG_AddEmpty :
  2172.       (void) read_stones (SG_SETE, &node->setup, file);
  2173.       break;
  2174.  
  2175.     case SG_VieW :
  2176.       if (read_stone (&x, &y, file) == SG_OK) {
  2177.     left = x; 
  2178.     top  = y;
  2179.  
  2180.     if (read_stone (&x, &y, file) == SG_OK) {
  2181.       right  = x; 
  2182.       bottom = y;
  2183.       value  = ((long) top << 24) + ((long) left << 16) + ((long) bottom << 8) + (long) right;
  2184.  
  2185.       SG_MakeProperty (node, id, value);
  2186.     }
  2187.       }
  2188.       break;
  2189.  
  2190.     case SG_Letters :
  2191.     case SG_Marked  :
  2192.       SG_MakeProperty (node, id, NULL);
  2193.       property = SG_GetProperty (node, id);
  2194.       (void) read_stones (SG_SETE, &property->data.pvalue, file);
  2195.       break;
  2196.  
  2197.     case SG_Comment :
  2198.     case SG_GameComment :
  2199.       SG_MakeProperty (node, id, NULL);
  2200.       property = SG_GetProperty (node, id);
  2201.       (void) read_text (&property->data.pvalue, file, 1);
  2202.       break;
  2203.  
  2204.     case SG_PLayer :
  2205.       (void) read_color (&x, file);
  2206.       node->player = x;
  2207.       break;
  2208.       
  2209.     case SG_GameName    :
  2210.     case SG_nodeName    :
  2211.     case SG_EVent       :
  2212.     case SG_ROund       :
  2213.     case SG_DaTe        :
  2214.     case SG_PlaCe       :
  2215.     case SG_REsult      :
  2216.     case SG_USer        :
  2217.     case SG_TiMe        :
  2218.     case SG_SOurce      :
  2219.     case SG_BlackRank   :
  2220.     case SG_WhiteRank   :
  2221.     case SG_BlackSpec   :
  2222.     case SG_WhiteSpec   :
  2223.     case SG_HAndicap    :
  2224.     case SG_KoMi        :
  2225.     case SG_PlayerBlack :
  2226.     case SG_PlayerWhite :
  2227.     case SG_BlackLeft   :
  2228.     case SG_WhiteLeft   :
  2229.       SG_MakeProperty (node, id, NULL);
  2230.       property = SG_GetProperty (node, id);
  2231.       (void) read_text (&property->data.pvalue, file, 0);
  2232.       break;
  2233.     }
  2234. }
  2235.  
  2236. /*******************************************************************************************************
  2237.  */
  2238.  
  2239. static SG_NodePtr root;
  2240.  
  2241. static SG_NodePtr read_node (node, var, file, level)
  2242. SG_NodePtr  node;
  2243. int         var;
  2244. FILE       *file;
  2245. int level;
  2246. {
  2247.   char cmd[3];
  2248.   int  ch;
  2249.   int  len     = 0;
  2250.   int  no_node = 1;
  2251.   int  nb_var  = 0;
  2252.  
  2253.   do {
  2254.     ch = getc (file);
  2255.  
  2256.     switch (ch) {
  2257.  
  2258.     case ';' :
  2259.       if (level != 0) {
  2260.     if (node == NULL) {
  2261.       node = SG_MakeNode (root, SG_Event);
  2262.       if (root == NULL)
  2263.         root = node;
  2264.     }
  2265.  
  2266.     else if (var-- == 1)
  2267.       node = SG_MakeNode (node, SG_VariationDiagram);
  2268.  
  2269.     else
  2270.       node = SG_MakeNode (node, SG_Diagram);
  2271.     
  2272.     no_node = 0;
  2273.     len     = 0;
  2274.       }
  2275.       break;
  2276.  
  2277.     case '(' :    
  2278.       if (level == 0)
  2279.     node = read_node ((SG_NodePtr) NULL, 0, file, level + 1);
  2280.       else if (nb_var++ == 0 || node->down == NULL)
  2281.     (void) read_node (node, 0, file, level + 1);
  2282.       else 
  2283.     (void) read_node (node->down, 1, file, level + 1);
  2284.  
  2285.       len = 0;
  2286.       break;
  2287.  
  2288.     case EOF :
  2289.     case ')' :
  2290.       return node;
  2291.  
  2292.     case '[' :
  2293.       if (len > 0 && no_node == 0) {
  2294.     (void) ungetc (ch, file);
  2295.     cmd[len++] = '\0';
  2296.  
  2297.     read_property (node, cmd, file);
  2298.       }
  2299.  
  2300.       else
  2301.     while (ch != ']' && ch != EOF) ch = getc (file);
  2302.  
  2303.       len = 0;
  2304.       break;
  2305.  
  2306.     default :
  2307.       if (isupper (ch) && len < 2)
  2308.     cmd[len++] = ch;
  2309.     }
  2310.  
  2311.   } while (ch != EOF);
  2312.  
  2313.   return node;
  2314. }
  2315.  
  2316. /*******************************************************************************************************
  2317.  */
  2318.  
  2319. SG_NodePtr SG_ReadTree (file)
  2320. FILE       *file;
  2321. {
  2322.   size = 19;
  2323.   root = NULL;
  2324.  
  2325.   (void) read_node ((SG_NodePtr) NULL, 0, file, 0);
  2326.   
  2327.   return root;
  2328. }
  2329.  
  2330. /*******************************************************************************************************
  2331.  */
  2332. SHAR_EOF
  2333. fi # end of overwriting check
  2334. if test -f 'write.c'
  2335. then
  2336.     echo shar: will not over-write existing file "'write.c'"
  2337. else
  2338. cat << \SHAR_EOF > 'write.c'
  2339. /****************************************************************************************************************
  2340.  *
  2341.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  2342.  *
  2343.  *  This program is distributed in the hope that it will be useful.
  2344.  *  Use and copying of this software and preparation of derivative works
  2345.  *  based upon this software are permitted, so long as the following
  2346.  *  conditions are met:
  2347.  *       o credit to the authors is acknowledged following current
  2348.  *         academic behaviour
  2349.  *       o no fees or compensation are charged for use, copies, or
  2350.  *         access to this software
  2351.  *       o this copyright notice is included intact.
  2352.  *  This software is made available AS IS, and no warranty is made about 
  2353.  *  the software or its performance. 
  2354.  * 
  2355.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  2356.  *  Send them to    dumesnil@etca.fr   or to:
  2357.  *       
  2358.  *       Antoine de Maricourt
  2359.  *       ETCA CREA-SP
  2360.  *       16 bis, avenue Prieur de la Cote d'Or
  2361.  *       94114 Arcueil Cedex
  2362.  *       France
  2363.  */
  2364.  
  2365. #include "sg.h"
  2366.  
  2367. #define PrintKeyword(id) (short_print == 0 ? sg_keywords[id].print : sg_keywords[id].keyword)
  2368. #define Newline(file)    { if (short_print == 0) if (fprintf (file, "\n") == EOF) return EOF; }
  2369.  
  2370. static int size        = 19;
  2371. static int short_print = 0;
  2372.  
  2373. /*******************************************************************************************************
  2374.  */
  2375.  
  2376. static int write_node (node, var, file, level)
  2377. SG_NodePtr  node;
  2378. int         var;
  2379. FILE       *file;
  2380. int         level;
  2381. {
  2382.   SG_PropertyPtr  property;
  2383.   unsigned char  *ptr;
  2384.   unsigned char   color;
  2385.   int             x;
  2386.   int             y;
  2387.  
  2388.   if (node != NULL) {
  2389.  
  2390.     if (node->right != NULL && var == 1)
  2391.       do {
  2392.     if (write_node (node, 0, file, level) == EOF) 
  2393.       return EOF;
  2394.  
  2395.     node = node->right;
  2396.       } while (node != NULL);
  2397.  
  2398.     else {
  2399.       if (fprintf (file, "(") == EOF)
  2400.     return EOF;
  2401.       Newline (file);
  2402.  
  2403.       if (fprintf (file, ";") == EOF)
  2404.     return EOF;
  2405.       Newline (file);
  2406.  
  2407.       if (level == 0) {
  2408.     if (fprintf (file, "%s[1]", PrintKeyword (SG_GaMe)) == EOF)
  2409.       return EOF;
  2410.     Newline (file);
  2411.       }
  2412.  
  2413.       goto sequence1;
  2414.  
  2415.     sequence  :
  2416.  
  2417.       if (fprintf (file, ";") == EOF)
  2418.     return EOF;
  2419.       Newline (file);
  2420.             
  2421.     sequence1 :
  2422.  
  2423.       switch (node->type) {
  2424.  
  2425.       case SG_EventType   :
  2426.       case SG_DiagramType :
  2427.  
  2428.     if ((ptr = node->setup) != NULL) {
  2429.  
  2430.       color = ~(*ptr & 0xc0);
  2431.         
  2432.       while (*ptr != SG_EOS) {
  2433.         if ((*ptr & 0xc0) != color && 
  2434.         ! ((*ptr & 0xc0) == SG_SETEB && color == SG_SETEW) &&
  2435.         ! ((*ptr & 0xc0) == SG_SETEW && color == SG_SETEB)) {
  2436.           color = *ptr & 0xc0;
  2437.         
  2438.           if (ptr != node->setup) {
  2439.         Newline (file);
  2440.           }
  2441.         
  2442.           switch (color) {
  2443.           case SG_SETB  : 
  2444.         if (fprintf (file, "%s", PrintKeyword (SG_AddBlack))  == EOF)
  2445.           return EOF;
  2446.         break;
  2447.           case SG_SETW  : 
  2448.         if (fprintf (file, "%s", PrintKeyword (SG_AddWhite)) == EOF)
  2449.           return EOF;
  2450.         break;
  2451.           case SG_SETEB :
  2452.           case SG_SETEW : 
  2453.         if (fprintf (file, "%s", PrintKeyword (SG_AddEmpty)) == EOF)
  2454.           return EOF; 
  2455.         break;
  2456.           }
  2457.         }
  2458.           
  2459.         x = *ptr++ & 0x3f;
  2460.         y = *ptr++ & 0x3f;
  2461.  
  2462.         if (fprintf (file, "[%c%c]", 'a' - 1 + x , 'a' + size - y) == EOF)
  2463.           return EOF;
  2464.              
  2465.       }
  2466.         
  2467.       Newline (file);
  2468.     }
  2469.  
  2470.     if (fprintf (file, "%s[%c]", 
  2471.              PrintKeyword (SG_PLayer),
  2472.              (node->player == SG_WhiteStone) ? 'W' : 'B') 
  2473.         == EOF)
  2474.       return EOF;
  2475.     Newline (file);
  2476.  
  2477.     break;
  2478.  
  2479.       case SG_MoveType :
  2480.     if (node->x == 0 && node->y == 0) {
  2481.       if (fprintf (file, "%s[tt]", 
  2482.                PrintKeyword ((node->color ==  SG_BlackStone) ? SG_Black : SG_White))
  2483.           == EOF)
  2484.         return EOF;
  2485.       Newline (file);
  2486.     }
  2487.  
  2488.     else {
  2489.       if (fprintf (file, "%s[%c%c]", 
  2490.                PrintKeyword ((node->color ==  SG_BlackStone) ? SG_Black : SG_White),
  2491.                'a' - 1 + node->x, 
  2492.                'a' + size - node->y)
  2493.           == EOF)
  2494.         return EOF;
  2495.       Newline (file);
  2496.     }
  2497.  
  2498.     break;
  2499.       }
  2500.  
  2501.       property = node->property;
  2502.  
  2503.       while (property != NULL) {
  2504.     switch (property->id) {
  2505.     
  2506.     case SG_VieW :
  2507.       if (fprintf (file, "%s[%c%c][%c%c]",
  2508.                PrintKeyword (SG_VieW),
  2509.                'a' - 1 +    ((property->data.ivalue >> 16) & 0xff),
  2510.                'a' + size - ((property->data.ivalue >> 24) & 0xff),
  2511.                'a' - 1 +    ((property->data.ivalue      ) & 0xff),
  2512.                'a' + size - ((property->data.ivalue >>  8) & 0xff))
  2513.           == EOF)
  2514.         return EOF;
  2515.       Newline (file);
  2516.       break;
  2517.       
  2518.     case SG_SiZe :
  2519.       size = property->data.ivalue;
  2520.       if (fprintf (file, "%s[%d]", 
  2521.                PrintKeyword (SG_SiZe),
  2522.                property->data.ivalue)
  2523.           == EOF)
  2524.         return EOF;
  2525.       Newline (file);
  2526.       break;
  2527.       
  2528.     case SG_KO :
  2529.       if (fprintf (file, "%s[%c%c]",
  2530.                PrintKeyword (SG_KO),
  2531.                'a' - 1    + ((property->data.ivalue >> 8) & 0x3f),
  2532.                'a' + size - (property->data.ivalue & 0x3f))
  2533.           == EOF)
  2534.         return EOF;
  2535.       Newline (file);
  2536.       break;
  2537.        
  2538.     case SG_Comment     :
  2539.     case SG_GameName    :
  2540.     case SG_GameComment :
  2541.     case SG_nodeName    :
  2542.     case SG_EVent       :
  2543.     case SG_ROund       :
  2544.     case SG_DaTe        :
  2545.     case SG_PlaCe       :
  2546.     case SG_REsult      :
  2547.     case SG_USer        :
  2548.     case SG_TiMe        :
  2549.     case SG_SOurce      :
  2550.     case SG_BlackRank   :
  2551.     case SG_WhiteRank   :
  2552.     case SG_BlackSpec   :
  2553.     case SG_WhiteSpec   :
  2554.     case SG_HAndicap    :
  2555.     case SG_KoMi        :
  2556.     case SG_PlayerBlack :
  2557.     case SG_PlayerWhite :
  2558.     case SG_BlackLeft   :
  2559.     case SG_WhiteLeft   :
  2560.  
  2561.       if ((ptr = property ->data.pvalue) != NULL && strcmp ((char *) ptr, "") != 0) {
  2562.         if (fprintf (file, "%s[", PrintKeyword (property->id)) == EOF)
  2563.           return EOF;
  2564.  
  2565.         while (*ptr != '\0') {
  2566.           if (*ptr == ']')
  2567.         if (putc ('\\', file) == EOF) return EOF;
  2568.           if (putc ((char) *ptr, file) == EOF) return EOF;
  2569.           ptr++;
  2570.         }
  2571.  
  2572.         if (fprintf (file, "]") == EOF) return EOF; Newline (file);
  2573.       }
  2574.       break;
  2575.  
  2576.     case SG_Letters :
  2577.     case SG_Marked  :
  2578.       if ((ptr = property->data.pvalue) != NULL) {
  2579.         if (fprintf (file, "%s", 
  2580.              PrintKeyword (property->id))
  2581.         == EOF)
  2582.           return EOF;
  2583.     
  2584.         while (*ptr != SG_EOS) {
  2585.           x = *ptr++ & 0x3f;
  2586.           y = *ptr++ & 0x3f;
  2587.           
  2588.           if (x != 0 || y != 0)
  2589.         if (fprintf (file, "[%c%c]", 'a' - 1 + x , 'a' + size - y) == EOF)
  2590.           return EOF;
  2591.         }
  2592.  
  2593.         Newline (file);
  2594.       }
  2595.       break;
  2596.     }
  2597.  
  2598.     property = property->next;
  2599.       }
  2600.  
  2601.       if (node->down != NULL) {
  2602.     node = node->down;
  2603.  
  2604.     if (node->right != NULL) {
  2605.       if (write_node (node, 1, file, level + 1) == EOF) 
  2606.         return EOF;
  2607.     }
  2608.     else
  2609.       goto sequence;
  2610.       }
  2611.  
  2612.       if (fprintf (file, ")") == EOF)
  2613.     return EOF;
  2614.       Newline (file);
  2615.     }
  2616.   }
  2617.  
  2618.   return 0;
  2619. }
  2620.  
  2621. /*******************************************************************************************************
  2622.  */
  2623.  
  2624. int SG_WriteTree (node, file, shrt)
  2625. SG_NodePtr  node;
  2626. FILE       *file;
  2627. int         shrt;
  2628. {
  2629.   short_print = shrt;
  2630.   size        = 19;
  2631.  
  2632.   return write_node (node, 1, file, 0);
  2633. }
  2634.  
  2635. /*******************************************************************************************************
  2636.  */
  2637. SHAR_EOF
  2638. fi # end of overwriting check
  2639. if test -f 'play.c'
  2640. then
  2641.     echo shar: will not over-write existing file "'play.c'"
  2642. else
  2643. cat << \SHAR_EOF > 'play.c'
  2644. /****************************************************************************************************************
  2645.  *
  2646.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  2647.  *
  2648.  *  This program is distributed in the hope that it will be useful.
  2649.  *  Use and copying of this software and preparation of derivative works
  2650.  *  based upon this software are permitted, so long as the following
  2651.  *  conditions are met:
  2652.  *       o credit to the authors is acknowledged following current
  2653.  *         academic behaviour
  2654.  *       o no fees or compensation are charged for use, copies, or
  2655.  *         access to this software
  2656.  *       o this copyright notice is included intact.
  2657.  *  This software is made available AS IS, and no warranty is made about 
  2658.  *  the software or its performance. 
  2659.  * 
  2660.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  2661.  *  Send them to    dumesnil@etca.fr   or to:
  2662.  *       
  2663.  *       Antoine de Maricourt
  2664.  *       ETCA CREA-SP
  2665.  *       16 bis, avenue Prieur de la Cote d'Or
  2666.  *       94114 Arcueil Cedex
  2667.  *       France
  2668.  */
  2669.  
  2670. #include "xgoban.h"
  2671.  
  2672. static int  size = 19;
  2673. static int  board[21][21];
  2674. static int  tmp_board[21][21];
  2675.  
  2676. static int  x_ko = 0;
  2677. static int  y_ko = 0;
  2678. static int  last_player;
  2679.  
  2680. static long mark = 0;
  2681. static long marks[21][21];
  2682.  
  2683. /*******************************************************************************************************
  2684.  *
  2685.  *   Recopie le goban <src> dans <dst>. Utile pour faire la difference de deux positions et
  2686.  *   etablir les proprietes AddBlack, AddWhite et AddEmtpy.
  2687.  */
  2688.     
  2689. static void copyBoard (src, dst)
  2690. int src[21][21];
  2691. int dst[21][21];
  2692. {
  2693.   int x;
  2694.   int y;
  2695.   
  2696.   for (x = 0; x < size + 2; x++)
  2697.     for (y = 0; y < size + 2; y++)
  2698.       dst[x][y] = src[x][y];
  2699. }
  2700.  
  2701. /*******************************************************************************************************
  2702.  *
  2703.  *   Compte les libertes d'une chaine.
  2704.  */
  2705.  
  2706. static int countLiberty (board, x, y, color)
  2707. int  board[21][21];
  2708. int  x;
  2709. int  y;
  2710. int  color;
  2711. {
  2712.   if (marks[x][y] != mark) {
  2713.     marks[x][y] = mark;
  2714.  
  2715.     if (board[x][y] == SG_EmptyPoint) return 1;
  2716.     if (board[x][y] == SG_Border    ) return 0;
  2717.     if (board[x][y] != color        ) return 0;
  2718.  
  2719.     return (countLiberty (board, x - 1, y, color) +
  2720.         countLiberty (board, x + 1, y, color) +
  2721.         countLiberty (board, x, y - 1, color) +
  2722.         countLiberty (board, x, y + 1, color));
  2723.   }
  2724.   
  2725.   return 0;
  2726. }
  2727.  
  2728. /*******************************************************************************************************
  2729.  *
  2730.  *   Supprime une chaine du goban.
  2731.  */
  2732.  
  2733. static void removeString (board, x, y, color)
  2734. int  board[21][21];
  2735. int  x;
  2736. int  y;
  2737. int  color;
  2738. {
  2739.   if (board[x][y] == color) {
  2740.     board[x][y] = SG_EmptyPoint;
  2741.  
  2742.     removeString (board, x + 1, y, color);
  2743.     removeString (board, x - 1, y, color);
  2744.     removeString (board, x, y + 1, color);
  2745.     removeString (board, x, y - 1, color);
  2746.   }
  2747. }
  2748.  
  2749. /*******************************************************************************************************
  2750.  *
  2751.  *   Fait la difference entre deux positions et construit la liste des pierres a poser ou enlever.
  2752.  *   On distingue EB et EW pour que cette propriete soit reversible.
  2753.  */
  2754.  
  2755. static void getSetup (dst, old, new)
  2756. unsigned char **dst;
  2757. int             old[21][21];
  2758. int             new[21][21];
  2759. {
  2760.   int            x;
  2761.   int            y;
  2762.   unsigned char  setup[361 * 2];
  2763.   unsigned char *ptr = setup;
  2764.  
  2765.   for (x = 1; x < size + 1; x++)
  2766.     for (y = 1; y < size + 1; y++)
  2767.       if (new[x][y] != old[x][y])
  2768.     if (old[x][y] == SG_BlackStone) {
  2769.       *ptr++ = SG_SETEB | ((unsigned char) x & 0x3f);
  2770.       *ptr++ = SG_SETEB | ((unsigned char) y & 0x3f);
  2771.     }
  2772.   
  2773.     else if (old[x][y] == SG_WhiteStone) {
  2774.       *ptr++ = SG_SETEW | ((unsigned char) x & 0x3f);
  2775.       *ptr++ = SG_SETEW | ((unsigned char) y & 0x3f);
  2776.     }
  2777.   
  2778.   for (x = 1; x < size + 1; x++)
  2779.     for (y = 1; y < size + 1; y++)
  2780.       if (new[x][y] != old[x][y])
  2781.     if (new[x][y] == SG_BlackStone) {
  2782.       *ptr++ = SG_SETB | ((unsigned char) x & 0x3f);
  2783.       *ptr++ = SG_SETB | ((unsigned char) y & 0x3f);
  2784.     }
  2785.   
  2786.   for (x = 1; x < size + 1; x++)
  2787.     for (y = 1; y < size + 1; y++)
  2788.       if (new[x][y] != old[x][y])
  2789.     if (new[x][y] == SG_WhiteStone) {
  2790.       *ptr++ = SG_SETW | ((unsigned char) x & 0x3f);
  2791.       *ptr++ = SG_SETW | ((unsigned char) y & 0x3f);
  2792.     }
  2793.   
  2794.   if (ptr != setup) {
  2795.     *ptr++ = SG_EOS;
  2796.     SG_strcpy (dst, setup, SG_EOS);
  2797.   }
  2798. }
  2799.  
  2800. /*******************************************************************************************************
  2801.  *
  2802.  *   Quelques fonctions pour editer des diagrames.
  2803.  */
  2804.  
  2805. void StartDiagram () 
  2806. {
  2807.   copyBoard (board, tmp_board);
  2808. }
  2809.  
  2810. void AddStone (x, y, color)
  2811. int x;
  2812. int y;
  2813. int color;
  2814. {
  2815.   board[x][y] = color;
  2816. }
  2817.  
  2818. unsigned char *EndDiagram ()
  2819. {
  2820.   unsigned char *ptr = NULL;
  2821.  
  2822.   getSetup (&ptr, tmp_board, board);
  2823.   copyBoard (tmp_board, board);
  2824.  
  2825.   return ptr;
  2826. }
  2827.  
  2828. /*******************************************************************************************************
  2829.  */
  2830.  
  2831. int Play (node)
  2832. SG_NodePtr    node;
  2833. {
  2834.   SG_PropertyPtr  property;
  2835.   SG_NodePtr      tmp;
  2836.   unsigned char  *ptr;
  2837.   int             x;
  2838.   int             y;
  2839.   int             color;
  2840.   int             prisoner;
  2841.   int             lib;
  2842.  
  2843.   if (node != NULL)
  2844.     switch (node->type) {
  2845.  
  2846.     case SG_EventType   :
  2847.       size     = 19;
  2848.       property = node->property;
  2849.       
  2850.       while (property != NULL) {
  2851.     if (property->id == SG_SiZe)
  2852.       if (property->data.ivalue > 1 && property->data.ivalue < 20)
  2853.         size = property->data.ivalue;
  2854.  
  2855.     property = property->next;
  2856.       }
  2857.       
  2858.       for (x = 0; x < size + 2; x++)
  2859.     for (y = 0; y < size + 2; y++)
  2860.       board[x][y] = (x == 0 || y == 0 || x == size + 1 || y == size + 1) ? 
  2861.         SG_Border : SG_EmptyPoint;
  2862.     
  2863.     case SG_DiagramType :
  2864.       
  2865.       node->num = 0;
  2866.  
  2867.       if (node->setup != NULL) {
  2868.     copyBoard (board, tmp_board);
  2869.  
  2870.     ptr = node->setup;
  2871.     
  2872.     while (*ptr != SG_EOS) {
  2873.       color = (int) (*ptr   & 0xc0);
  2874.       x     = (int) (*ptr++ & 0x3f);
  2875.       y     = (int) (*ptr++ & 0x3f);
  2876.  
  2877.       switch (color) {
  2878.       case SG_SETB  : board[x][y] = SG_BlackStone; break;
  2879.       case SG_SETW  : board[x][y] = SG_WhiteStone; break;
  2880.       case SG_SETEB :
  2881.       case SG_SETEW : board[x][y] = SG_EmptyPoint; break;
  2882.       }
  2883.  
  2884.     }
  2885.  
  2886.     getSetup (&node->setup, tmp_board, board);
  2887.       }
  2888.  
  2889.       x_ko = y_ko = 0;
  2890.       break;
  2891.       
  2892.     case SG_MoveType :
  2893.  
  2894.       if (node->num == -1) {
  2895.     tmp = node;
  2896.     while (tmp->left != NULL) tmp = tmp->left;
  2897.     tmp = tmp->up;
  2898.     
  2899.     if (tmp != NULL)
  2900.       node->num = tmp->num + 1;
  2901.       }
  2902.  
  2903.       x            = node->x;
  2904.       y            = node->y;
  2905.       color        = node->color;
  2906.       node->player = (node->color == SG_BlackStone) ? SG_WhiteStone : SG_BlackStone;
  2907.  
  2908.       if ((x_ko != 0 || y_ko != 0) && color != last_player)
  2909.     SG_MakeProperty (node, SG_ko, (last_player << 16) + (x_ko << 8) + y_ko);
  2910.       
  2911.       if (x == 0 && y == 0) {
  2912.     x_ko = y_ko = 0;
  2913.     return SG_OK;
  2914.       }
  2915.  
  2916.       if (board[x][y] != SG_EmptyPoint)
  2917.     return SG_PlayIllegal;
  2918.       
  2919.       if (x == x_ko && y == y_ko && color != last_player)
  2920.     return SG_PlayKo;
  2921.  
  2922.       board[x][y] = color;
  2923.  
  2924.       prisoner = 0;
  2925.       color    = (color == SG_BlackStone) ? SG_WhiteStone : SG_BlackStone;
  2926.       
  2927.       mark++; if (board[x + 1][y] == color && countLiberty (board, x + 1, y, color) == 0) prisoner |= 1;
  2928.       mark++; if (board[x - 1][y] == color && countLiberty (board, x - 1, y, color) == 0) prisoner |= 2;
  2929.       mark++; if (board[x][y + 1] == color && countLiberty (board, x, y + 1, color) == 0) prisoner |= 4;
  2930.       mark++; if (board[x][y - 1] == color && countLiberty (board, x, y - 1, color) == 0) prisoner |= 8;
  2931.  
  2932.       mark++; 
  2933.       if ((lib = countLiberty (board, x, y, board[x][y])) == 0 && prisoner == 0) {
  2934.     board[x][y] = SG_EmptyPoint;
  2935.     return SG_PlaySuicide;
  2936.       }
  2937.  
  2938.       x_ko = y_ko = 0;
  2939.  
  2940.       if (prisoner != 0) {
  2941.     copyBoard (board, tmp_board);
  2942.  
  2943.     if (prisoner & 1) removeString (board, x + 1, y, color);
  2944.     if (prisoner & 2) removeString (board, x - 1, y, color);
  2945.     if (prisoner & 4) removeString (board, x, y + 1, color);
  2946.     if (prisoner & 8) removeString (board, x, y - 1, color);
  2947.  
  2948.     getSetup (&node->setup, tmp_board, board);
  2949.  
  2950.     ptr = node->setup;
  2951.  
  2952.     prisoner = 0;
  2953.     while (*ptr != SG_EOS) {
  2954.       prisoner++;
  2955.       ptr += 2;
  2956.     }
  2957.  
  2958.     if (prisoner == 1 && lib == 0 &&
  2959.         board[x + 1][y] != board[x][y] &&
  2960.         board[x - 1][y] != board[x][y] &&
  2961.         board[x][y + 1] != board[x][y] &&
  2962.         board[x][y - 1] != board[x][y]) {
  2963.  
  2964.       x_ko = (int) (*node->setup       & 0x3f);
  2965.       y_ko = (int) (*(node->setup + 1) & 0x3f);
  2966.  
  2967.       SG_MakeProperty (node, SG_KO, (x_ko << 8) + y_ko);
  2968.     }
  2969.       }
  2970.       
  2971.       last_player = (int) node->color;
  2972.       break;
  2973.     }
  2974.  
  2975.   return SG_OK;
  2976. }
  2977.  
  2978. /*******************************************************************************************************
  2979.  */
  2980.     
  2981. void Unplay (node)
  2982. SG_NodePtr    node;
  2983. {
  2984.   SG_PropertyPtr  property;
  2985.   unsigned char  *ptr;
  2986.   int             x;
  2987.   int             y;
  2988.   int             color;
  2989.  
  2990.   if (node != NULL)
  2991.     switch (node->type) {
  2992.       
  2993.     case SG_EventType   :
  2994.       size     = 19;
  2995.       
  2996.       for (x = 0; x < size + 2; x++)
  2997.     for (y = 0; y < size + 2; y++)
  2998.       board[x][y] = (x == 0 || y == 0 || x == size + 1 || y == size + 1) ? 
  2999.         SG_Border : SG_EmptyPoint;
  3000.  
  3001.     case SG_DiagramType :
  3002.       
  3003.       if (node->setup != NULL) {
  3004.     
  3005.     ptr = node->setup;
  3006.     
  3007.     while (*ptr != SG_EOS) {
  3008.       color = (int) (*ptr   & 0xc0);
  3009.       x     = (int) (*ptr++ & 0x3f);
  3010.       y     = (int) (*ptr++ & 0x3f);
  3011.       
  3012.       switch (color) {
  3013.       case SG_SETEB : board[x][y] = SG_BlackStone; break;
  3014.       case SG_SETEW : board[x][y] = SG_WhiteStone; break;
  3015.       case SG_SETB  :
  3016.       case SG_SETW  : board[x][y] = SG_EmptyPoint; break;
  3017.       }
  3018.     }
  3019.       }
  3020.       break;
  3021.       
  3022.     case SG_MoveType :
  3023.       x_ko = y_ko = 0;
  3024.       last_player = SG_EmptyPoint;
  3025.  
  3026.       property = node->property;
  3027.  
  3028.       while (property != NULL) {
  3029.     if (property->id == SG_ko) {
  3030.       last_player = (int) ( property->data.ivalue >> 16);
  3031.       x_ko        = (int) ((property->data.ivalue >> 8) & 0x3f);
  3032.       y_ko        = (int) ( property->data.ivalue       & 0x3f);
  3033.       break;
  3034.     }
  3035.  
  3036.     property = property->next;
  3037.       }
  3038.  
  3039.       x = (int) node->x;
  3040.       y = (int) node->y;
  3041.       
  3042.       if (x == 0 && y == 0)
  3043.     break;
  3044.  
  3045.       board[x][y] = SG_EmptyPoint;
  3046.       
  3047.       if (node->setup != NULL) {
  3048.     ptr   = node->setup;
  3049.     color = (node->color == SG_BlackStone) ? SG_WhiteStone : SG_BlackStone;
  3050.     
  3051.     while (*ptr != SG_EOS) {
  3052.       x = (int) (*ptr++ & 0x3f);
  3053.       y = (int) (*ptr++ & 0x3f);
  3054.       
  3055.       board[x][y] = color;
  3056.     }
  3057.       }
  3058.       break;
  3059.     }
  3060. }
  3061.  
  3062. /*******************************************************************************************************
  3063.  */
  3064. SHAR_EOF
  3065. fi # end of overwriting check
  3066. if test -f 'event.c'
  3067. then
  3068.     echo shar: will not over-write existing file "'event.c'"
  3069. else
  3070. cat << \SHAR_EOF > 'event.c'
  3071. /****************************************************************************************************************
  3072.  *
  3073.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  3074.  *
  3075.  *  This program is distributed in the hope that it will be useful.
  3076.  *  Use and copying of this software and preparation of derivative works
  3077.  *  based upon this software are permitted, so long as the following
  3078.  *  conditions are met:
  3079.  *       o credit to the authors is acknowledged following current
  3080.  *         academic behaviour
  3081.  *       o no fees or compensation are charged for use, copies, or
  3082.  *         access to this software
  3083.  *       o this copyright notice is included intact.
  3084.  *  This software is made available AS IS, and no warranty is made about 
  3085.  *  the software or its performance. 
  3086.  * 
  3087.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  3088.  *  Send them to    dumesnil@etca.fr   or to:
  3089.  *       
  3090.  *       Antoine de Maricourt
  3091.  *       ETCA CREA-SP
  3092.  *       16 bis, avenue Prieur de la Cote d'Or
  3093.  *       94114 Arcueil Cedex
  3094.  *       France
  3095.  */
  3096.  
  3097. #include <stdio.h>
  3098. #include <ctype.h>
  3099.  
  3100. #include <X11/Intrinsic.h>
  3101. #include <X11/Shell.h>
  3102. #include <X11/StringDefs.h>
  3103.  
  3104. #include <X11/Xaw/Command.h>
  3105. #include <X11/Xaw/Form.h>
  3106. #include <X11/Xaw/Label.h>
  3107. #include <X11/Xaw/AsciiText.h>
  3108.  
  3109. #include "Goban.h"
  3110. #include "xgoban.h"
  3111.  
  3112. static Widget   i_top;
  3113. static Widget   form;
  3114.  
  3115. static Widget   w_GN;
  3116. static Widget   w_PW;
  3117. static Widget   w_PB;
  3118. static Widget   w_WR;
  3119. static Widget   w_BR;
  3120. static Widget   w_WS;
  3121. static Widget   w_BS;
  3122. static Widget   w_EV;
  3123. static Widget   w_PC;
  3124. static Widget   w_DT;
  3125. static Widget   w_RO;
  3126. static Widget   w_HA;
  3127. static Widget   w_KM;
  3128. static Widget   w_TM;
  3129. static Widget   w_RE;
  3130. static Widget   w_US;
  3131. static Widget   w_SO;
  3132. static Widget   w_GC;
  3133.  
  3134. /*******************************************************************************************************
  3135.  */
  3136.  
  3137. static void SetEventProperty (w, id, node)
  3138. Widget      w;
  3139. int         id;
  3140. SG_NodePtr  node;
  3141. {
  3142.   Arg             arg;
  3143.   String          text;
  3144.   SG_PropertyPtr  property;
  3145.  
  3146.   XtSetArg (arg, XtNstring, &text); XtGetValues (w, &arg, 1);
  3147.  
  3148.   if (node != NULL) {
  3149.     property = SG_GetProperty (node, id);
  3150.  
  3151.     if (property != NULL && strcmp (property->data.pvalue, text) != 0) {
  3152.       SG_strcpy (&property->data.pvalue, text, '\0');
  3153.       modified = True;
  3154.     }
  3155.  
  3156.     else if (strcmp (text, "") != 0 && property == NULL) {
  3157.       SG_MakeProperty (node, id, text);
  3158.       modified = True;
  3159.     }
  3160.   }
  3161. }
  3162.  
  3163. /*******************************************************************************************************
  3164.  */
  3165.  
  3166. static void infoCancel   (w, event) 
  3167. Widget    w;
  3168. XEvent   *event;
  3169. { 
  3170.   XtPopdown (i_top);
  3171. }
  3172.  
  3173. /*******************************************************************************************************
  3174.  */
  3175.  
  3176. static void highlightText  (w, event) 
  3177. Widget    w;
  3178. XEvent   *event;
  3179. { 
  3180.   Arg args[1];
  3181.  
  3182.   if (edit == True) {
  3183.     XtSetArg (args[0], XtNdisplayCaret,  True);
  3184.     XtSetValues (w, args, 1);
  3185.   }
  3186. }
  3187.  
  3188. /*******************************************************************************************************
  3189.  */
  3190.  
  3191. static void unhighlightText  (w, event) 
  3192. Widget    w;
  3193. XEvent   *event;
  3194. { 
  3195.   Arg args[1];
  3196.  
  3197.   if (edit == True) {
  3198.     XtSetArg (args[0], XtNdisplayCaret,  False);
  3199.     XtSetValues (w, args, 1);
  3200.   }
  3201. }
  3202.  
  3203. /*******************************************************************************************************
  3204.  */
  3205.  
  3206. static void infoConfirm  (w, event) 
  3207. Widget    w;
  3208. XEvent   *event;
  3209. { 
  3210.   SG_NodePtr node = current_node;
  3211.  
  3212.   if (edit == True) {
  3213.     while (node->type != SG_EventType) {
  3214.       while (node->left != NULL)
  3215.         node = node->left;
  3216.       while (node->up != NULL)
  3217.         node = node->up;
  3218.     }
  3219.     
  3220.     SetEventProperty (w_PB, SG_PlayerBlack, node);
  3221.     SetEventProperty (w_PW, SG_PlayerWhite, node);
  3222.     SetEventProperty (w_BS, SG_BlackSpec  , node);
  3223.     SetEventProperty (w_WS, SG_WhiteSpec  , node);
  3224.     SetEventProperty (w_BR, SG_BlackRank  , node);
  3225.     SetEventProperty (w_WR, SG_WhiteRank  , node);
  3226.     SetEventProperty (w_EV, SG_EVent      , node);
  3227.     SetEventProperty (w_RO, SG_ROund      , node);
  3228.     SetEventProperty (w_PC, SG_PlaCe      , node);
  3229.     SetEventProperty (w_DT, SG_DaTe       , node);
  3230.     SetEventProperty (w_HA, SG_HAndicap   , node);
  3231.     SetEventProperty (w_KM, SG_KoMi       , node);
  3232.     SetEventProperty (w_TM, SG_TiMe       , node);
  3233.     SetEventProperty (w_RE, SG_REsult     , node);
  3234.     SetEventProperty (w_US, SG_USer       , node);
  3235.     SetEventProperty (w_SO, SG_SOurce     , node);
  3236.     SetEventProperty (w_GN, SG_GameName   , node);
  3237.     SetEventProperty (w_GC, SG_GameComment, node);
  3238.   }
  3239.    
  3240.   XtPopdown (i_top);
  3241. }
  3242.  
  3243. void EventInfo (w, event)
  3244. Widget    w;
  3245. XEvent   *event;
  3246. {
  3247.   SG_NodePtr     node = current_node;
  3248.   SG_PropertyPtr property;
  3249.   Arg            args[4];
  3250.   int            xtargc;
  3251.   Widget         text;
  3252.  
  3253.   while (node->type != SG_EventType) {
  3254.     while (node->left != NULL)
  3255.       node = node->left;
  3256.     while (node->up != NULL)
  3257.       node = node->up;
  3258.   }
  3259.  
  3260.   if (node->type == SG_EventType) {
  3261.     CenterWindow (i_top, NULL);
  3262.  
  3263.     xtargc = 0;
  3264.     XtSetArg (args[xtargc], XtNstring, (XtArgVal) ""); xtargc++;
  3265.     XtSetArg (args[xtargc], XtNeditType, 
  3266.               (XtArgVal) (edit == True) ? XawtextEdit : XawtextRead); xtargc++;
  3267.  
  3268.     
  3269.     XtSetValues (w_PB, args, xtargc);
  3270.     XtSetValues (w_PW, args, xtargc);
  3271.     XtSetValues (w_BS, args, xtargc);
  3272.     XtSetValues (w_WS, args, xtargc);
  3273.     XtSetValues (w_BR, args, xtargc);
  3274.     XtSetValues (w_WR, args, xtargc);
  3275.     XtSetValues (w_EV, args, xtargc);
  3276.     XtSetValues (w_RO, args, xtargc);
  3277.     XtSetValues (w_PC, args, xtargc);
  3278.     XtSetValues (w_DT, args, xtargc);
  3279.     XtSetValues (w_HA, args, xtargc);
  3280.     XtSetValues (w_KM, args, xtargc);
  3281.     XtSetValues (w_TM, args, xtargc);
  3282.     XtSetValues (w_RE, args, xtargc);
  3283.     XtSetValues (w_US, args, xtargc);
  3284.     XtSetValues (w_SO, args, xtargc);
  3285.     XtSetValues (w_GC, args, xtargc);
  3286.     XtSetValues (w_GN, args, xtargc);
  3287.  
  3288.     property = node->property;
  3289.     
  3290.     while (property != NULL) {
  3291.       switch (property->id) {
  3292.       case SG_PlayerBlack : text = w_PB; break;
  3293.       case SG_PlayerWhite : text = w_PW; break;
  3294.       case SG_BlackSpec   : text = w_BS; break;
  3295.       case SG_WhiteSpec   : text = w_WS; break;
  3296.       case SG_BlackRank   : text = w_BR; break;
  3297.       case SG_WhiteRank   : text = w_WR; break;
  3298.       case SG_EVent       : text = w_EV; break;
  3299.       case SG_ROund       : text = w_RO; break;
  3300.       case SG_PlaCe       : text = w_PC; break;
  3301.       case SG_DaTe        : text = w_DT; break;
  3302.       case SG_HAndicap    : text = w_HA; break;
  3303.       case SG_KoMi        : text = w_KM; break;
  3304.       case SG_TiMe        : text = w_TM; break;
  3305.       case SG_REsult      : text = w_RE; break;
  3306.       case SG_USer        : text = w_US; break;
  3307.       case SG_SOurce      : text = w_SO; break;
  3308.       case SG_GameName    : text = w_GN; break;
  3309.       case SG_GameComment : text = w_GC; break;
  3310.       default             : text = NULL;
  3311.       }
  3312.  
  3313.       if (text != NULL && property->data.pvalue != NULL)
  3314.     { XtSetArg (args[0], XtNstring, property->data.pvalue);    XtSetValues (text, args, 1); }
  3315.  
  3316.       property = property->next;
  3317.     }
  3318.  
  3319.     XtPopup (i_top, XtGrabNonexclusive);
  3320.   }
  3321. }
  3322.  
  3323. /*******************************************************************************************************
  3324.  */
  3325.  
  3326. static Widget make_label (form, name, label, horiz, vert, width, justify)
  3327. Widget    form;
  3328. String    name;
  3329. String    label;
  3330. Widget    horiz;
  3331. Widget    vert;
  3332. Dimension width;
  3333. XtArgVal  justify;
  3334. {
  3335.   Arg args[8];
  3336.   int xtargc;
  3337.  
  3338.   xtargc = 0;
  3339.   if (horiz != NULL) { XtSetArg (args[xtargc], XtNfromHoriz, horiz); xtargc++; } 
  3340.   if (vert  != NULL) { XtSetArg (args[xtargc], XtNfromVert , vert ); xtargc++; }
  3341.  
  3342.   XtSetArg (args[xtargc], XtNjustify       , justify  ); xtargc++;
  3343.   XtSetArg (args[xtargc], XtNlabel         , label    ); xtargc++;
  3344.   XtSetArg (args[xtargc], XtNwidth         , width + 2); xtargc++;
  3345.   XtSetArg (args[xtargc], XtNborderWidth   , 0        ); xtargc++;
  3346.   XtSetArg (args[xtargc], XtNinternalHeight, 3        ); xtargc++;
  3347.  
  3348.   return XtCreateManagedWidget (name, labelWidgetClass, form, args, xtargc);
  3349. }
  3350.  
  3351. /*******************************************************************************************************
  3352.  */
  3353.  
  3354. static XtTranslations translations;
  3355.  
  3356. static Widget make_text (form, name, horiz, vert, width)
  3357. Widget    form;
  3358. String    name;
  3359. Widget    horiz;
  3360. Widget    vert;
  3361. Dimension width;
  3362. {
  3363.   Arg args[8];
  3364.   int xtargc;
  3365.  
  3366.   xtargc = 0;
  3367.   if (horiz != NULL) { XtSetArg (args[xtargc], XtNfromHoriz, (XtArgVal) horiz); xtargc++; } 
  3368.   if (vert  != NULL) { XtSetArg (args[xtargc], XtNfromVert , (XtArgVal) vert ); xtargc++; }
  3369.  
  3370.   XtSetArg (args[xtargc], XtNwidth       , (XtArgVal) width       ); xtargc++;
  3371.   XtSetArg (args[xtargc], XtNeditType    , (XtArgVal) XawtextEdit ); xtargc++;
  3372.   XtSetArg (args[xtargc], XtNtranslations, (XtArgVal) translations); xtargc++;
  3373.   XtSetArg (args[xtargc], XtNdisplayCaret, (XtArgVal) False       ); xtargc++;
  3374.  
  3375.   return XtCreateManagedWidget (name, asciiTextWidgetClass, form, args, xtargc);
  3376. }
  3377.  
  3378. /*******************************************************************************************************
  3379.  */
  3380.  
  3381. void makeEventWindow (toplevel, app_context)
  3382. Widget        toplevel;
  3383. XtAppContext  app_context;
  3384.  
  3385. {
  3386.   static XtActionsRec   actions[] = {
  3387.     { "infoConfirm"      , infoConfirm     , },
  3388.     { "infoCancel"       , infoCancel      , },
  3389.     { "highlightText"    , highlightText   , },
  3390.     { "unhighlightText"  , unhighlightText , },
  3391.   }; 
  3392.  
  3393.   Arg    args[10];
  3394.   int    xtargc;
  3395.  
  3396.   Widget game;
  3397.   Widget name, rank, species, white, black;
  3398.   Widget event, place, date, round;
  3399.   Widget handicap, komi, time, result;
  3400.   Widget user, source;
  3401.   Widget cancel, confirm;
  3402.    
  3403.   XtAppAddActions (app_context, actions, XtNumber(actions));
  3404.  
  3405.   translations = XtParseTranslationTable 
  3406.     ("#override                            \
  3407.       <EnterWindow>  : highlightText()   \n\
  3408.       <LeaveWindow>  : unhighlightText() \n\
  3409.       <Key> Escape   : infoCancel()      \n\
  3410.       <Key> Linefeed : infoConfirm()     \n\
  3411.       <Key> Return   : infoConfirm()     \n\
  3412.       Ctrl <Key> J   : infoConfirm()     \n\
  3413.       Ctrl <Key> M   : infoConfirm()");
  3414.  
  3415.   i_top    = XtCreatePopupShell    ("event"        , transientShellWidgetClass, toplevel , NULL, 0);
  3416.  
  3417.   xtargc = 0;
  3418.   XtSetArg (args[xtargc], XtNtranslations, (XtArgVal) translations); xtargc++;
  3419.  
  3420.   form     = XtCreateManagedWidget ("eventForm"    , formWidgetClass          , i_top      , args, xtargc);
  3421.  
  3422.   
  3423.   game     = make_label (form, "game"    , "Game"    , NULL   , NULL    , (Dimension) 66 , XtJustifyLeft);
  3424.  
  3425.   w_GN     = make_text  (form, "GN"      , game      , NULL   , (Dimension) 200);
  3426.  
  3427.   name     = make_label (form, "name"    , "Name"    , game   , game    , (Dimension) 200, XtJustifyCenter);
  3428.   rank     = make_label (form, "rank"    , "Rank"    , name   , game    , (Dimension) 80 , XtJustifyCenter);
  3429.   species  = make_label (form, "species" , "Species" , rank   , game    , (Dimension) 80 , XtJustifyCenter);
  3430.  
  3431.   white    = make_label (form, "white"   , "White"   , NULL   , name    , (Dimension) 66 , XtJustifyLeft);
  3432.   black    = make_label (form, "black"   , "Black"   , NULL   , white   , (Dimension) 66 , XtJustifyLeft);
  3433.  
  3434.   w_PW     = make_text  (form, "PW"      , white     , name   , 200);
  3435.   w_PB     = make_text  (form, "PB"      , black     , w_PW   , 200);
  3436.   w_WR     = make_text  (form, "WR"      , w_PW      , rank   , 80 );
  3437.   w_BR     = make_text  (form, "BR"      , w_PB      , w_WR   , 80 );
  3438.   w_WS     = make_text  (form, "WS"      , w_WR      , species, 80 );
  3439.   w_BS     = make_text  (form, "BS"      , w_BR      , w_WS   , 80 );
  3440.  
  3441.   event    = make_label (form, "event"   , "Event"   , NULL   , black   , (Dimension) 66 , XtJustifyLeft);
  3442.   place    = make_label (form, "place"   , "Place"   , NULL   , event   , (Dimension) 66 , XtJustifyLeft);
  3443.   date     = make_label (form, "date"    , "Date"    , NULL   , place   , (Dimension) 66 , XtJustifyLeft);
  3444.   round    = make_label (form, "round"   , "Round"   , NULL   , date    , (Dimension) 66 , XtJustifyLeft);
  3445.  
  3446.   w_EV     = make_text  (form, "EV"      , event     , black  , (Dimension) 200);
  3447.   w_PC     = make_text  (form, "PC"      , place     , w_EV   , (Dimension) 200);
  3448.   w_DT     = make_text  (form, "DT"      , date      , w_PC   , (Dimension) 200);
  3449.   w_RO     = make_text  (form, "RO"      , round     , w_DT   , (Dimension) 200);
  3450.  
  3451.   handicap = make_label (form, "handicap", "Handicap", w_EV   , black   , (Dimension) 66 , XtJustifyLeft);
  3452.   komi     = make_label (form, "komi"    , "Komi"    , w_PC   , handicap, (Dimension) 66 , XtJustifyLeft);
  3453.   time     = make_label (form, "time"    , "Time"    , w_DT   , komi    , (Dimension) 66 , XtJustifyLeft);
  3454.   result   = make_label (form, "result"  , "Result"  , w_RO   , time    , (Dimension) 66 , XtJustifyLeft);
  3455.  
  3456.   w_HA     = make_text  (form, "HA"      , handicap  , black  , (Dimension) 80);
  3457.   w_KM     = make_text  (form, "KM"      , komi      , w_HA   , (Dimension) 80);
  3458.   w_TM     = make_text  (form, "TM"      , time      , w_KM   , (Dimension) 80);
  3459.   w_RE     = make_text  (form, "RE"      , result    , w_TM   , (Dimension) 80);
  3460.  
  3461.   user     = make_label (form, "user"    , "User"    , NULL   , round   , (Dimension) 66 , XtJustifyLeft);
  3462.   source   = make_label (form, "komi"    , "Source"  , NULL   , user    , (Dimension) 66 , XtJustifyLeft);
  3463.  
  3464.   w_US     = make_text  (form, "US"      , user      , round  , (Dimension) 200);
  3465.   w_SO     = make_text  (form, "SO"      , source    , w_US   , (Dimension) 200);
  3466.   
  3467.   xtargc = 0;
  3468.   XtSetArg (args[xtargc], XtNlabel          , (XtArgVal) CancelLabel ); xtargc++;  
  3469.   XtSetArg (args[xtargc], XtNfromVert       , (XtArgVal) round       ); xtargc++;  
  3470.   XtSetArg (args[xtargc], XtNfromHoriz      , (XtArgVal) w_US        ); xtargc++;  
  3471.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 100         ); xtargc++;  
  3472.  
  3473. #ifndef NO_EXTENSION
  3474.   XtSetArg (args[xtargc], XtNshapeStyle     , (XtArgVal) XmuShapeOval); xtargc++;  
  3475. #endif
  3476.  
  3477.   cancel   = XtCreateManagedWidget ("cancel"   , commandWidgetClass  , form   , args, xtargc);
  3478.   
  3479.   xtargc = 0;
  3480.   XtSetArg (args[xtargc], XtNlabel          , (XtArgVal) ConfirmLabel); xtargc++;  
  3481.   XtSetArg (args[xtargc], XtNfromVert       , (XtArgVal) cancel      ); xtargc++;  
  3482.   XtSetArg (args[xtargc], XtNfromHoriz      , (XtArgVal) w_US        ); xtargc++;  
  3483.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 100         ); xtargc++;  
  3484.  
  3485. #ifndef NO_EXTENSION
  3486.   XtSetArg (args[xtargc], XtNshapeStyle     , (XtArgVal) XmuShapeOval); xtargc++;  
  3487. #endif
  3488.   
  3489.   confirm  = XtCreateManagedWidget ("confirm"  , commandWidgetClass  , form   , args, xtargc);
  3490.   
  3491.   xtargc = 0;
  3492.   XtSetArg (args[xtargc], XtNtranslations   , (XtArgVal) translations); xtargc++;
  3493.   XtSetArg (args[xtargc], XtNfromVert       , (XtArgVal) source      ); xtargc++;  
  3494.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 444         ); xtargc++;  
  3495.   XtSetArg (args[xtargc], XtNheight         , (XtArgVal) 150         ); xtargc++;  
  3496.   XtSetArg (args[xtargc], XtNscrollVertical , (XtArgVal) XawtextScrollAlways); xtargc++;  
  3497.   XtSetArg (args[xtargc], XtNeditType       , (XtArgVal) XawtextEdit ); xtargc++;  
  3498.   XtSetArg (args[xtargc], XtNdisplayCaret   , (XtArgVal) False       ); xtargc++;
  3499.  
  3500.   w_GC = XtCreateManagedWidget ("GC" , asciiTextWidgetClass     , form     , args, xtargc);
  3501.  
  3502.   xtargc = 0;
  3503.   XtSetArg (args[xtargc], XtNvertDistance , (XtArgVal) 16); xtargc++;
  3504.  
  3505.   XtSetValues (event     , args, xtargc);
  3506.   XtSetValues (w_EV      , args, xtargc);
  3507.   XtSetValues (w_HA      , args, xtargc);
  3508.   XtSetValues (user      , args, xtargc);
  3509.   XtSetValues (w_US      , args, xtargc);
  3510.   XtSetValues (cancel    , args, xtargc);
  3511.   XtSetValues (w_GC      , args, xtargc);
  3512.   XtSetValues (handicap  , args, xtargc);
  3513.  
  3514.   xtargc = 0;
  3515.   XtSetArg (args[xtargc], XtNvertDistance , (XtArgVal) 8 ); xtargc++;
  3516.  
  3517.   XtSetValues (w_GN      , args, xtargc);
  3518.   XtSetValues (game      , args, xtargc);
  3519.  
  3520.   xtargc = 0;
  3521.   XtSetArg (args[xtargc], XtNhorizDistance, (XtArgVal) 18); xtargc++;
  3522.  
  3523.   XtSetValues (handicap  , args, xtargc);
  3524.   XtSetValues (komi      , args, xtargc);
  3525.   XtSetValues (time      , args, xtargc);
  3526.   XtSetValues (result    , args, xtargc);
  3527.  
  3528.   xtargc = 0;
  3529.   XtSetArg (args[xtargc], XtNhorizDistance, (XtArgVal) 37); xtargc++;
  3530.  
  3531.   XtSetValues (confirm   , args, xtargc);
  3532.   XtSetValues (cancel    , args, xtargc);
  3533.  
  3534.   XtAddCallback (confirm, XtNcallback, infoConfirm, NULL);
  3535.   XtAddCallback (cancel , XtNcallback, infoCancel , NULL);
  3536. }
  3537. SHAR_EOF
  3538. fi # end of overwriting check
  3539. if test -f 'dialog.c'
  3540. then
  3541.     echo shar: will not over-write existing file "'dialog.c'"
  3542. else
  3543. cat << \SHAR_EOF > 'dialog.c'
  3544. /****************************************************************************************************************
  3545.  *
  3546.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  3547.  *
  3548.  *  This program is distributed in the hope that it will be useful.
  3549.  *  Use and copying of this software and preparation of derivative works
  3550.  *  based upon this software are permitted, so long as the following
  3551.  *  conditions are met:
  3552.  *       o credit to the authors is acknowledged following current
  3553.  *         academic behaviour
  3554.  *       o no fees or compensation are charged for use, copies, or
  3555.  *         access to this software
  3556.  *       o this copyright notice is included intact.
  3557.  *  This software is made available AS IS, and no warranty is made about 
  3558.  *  the software or its performance. 
  3559.  * 
  3560.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  3561.  *  Send them to    dumesnil@etca.fr   or to:
  3562.  *       
  3563.  *       Antoine de Maricourt
  3564.  *       ETCA CREA-SP
  3565.  *       16 bis, avenue Prieur de la Cote d'Or
  3566.  *       94114 Arcueil Cedex
  3567.  *       France
  3568.  */
  3569.  
  3570. #include <stdio.h>
  3571. #include <ctype.h>
  3572.  
  3573. #include <X11/Intrinsic.h>
  3574. #include <X11/Shell.h>
  3575. #include <X11/StringDefs.h>
  3576.  
  3577. #include <X11/Xaw/Command.h>
  3578. #include <X11/Xaw/Form.h>
  3579. #include <X11/Xaw/Label.h>
  3580. #include <X11/Xaw/AsciiText.h>
  3581.  
  3582. #include "xgoban.h"
  3583.  
  3584. /*******************************************************************************************************
  3585.  */
  3586.  
  3587. static Widget   d_top;
  3588. static Widget   d_form;
  3589. static Widget   d_msg;
  3590. static Widget   d_text;
  3591. static Widget   d_confirm;
  3592. static Widget   d_cancel;
  3593.  
  3594. static Widget   a_top;
  3595. static Widget   a_form;
  3596. static Widget   a_msg;
  3597. static Widget   a_confirm;
  3598. static Widget   a_cancel;
  3599.  
  3600. static Widget   w_top;
  3601. static Widget   w_form;
  3602. static Widget   w_msg;
  3603. static Widget   w_confirm;
  3604.  
  3605. static Widget   h_top;
  3606. static Widget   h_text;
  3607.  
  3608. static int      dialog_mode  = -1;
  3609. static Widget   dialog_widget;
  3610.  
  3611. static XEvent   delay_event;
  3612.  
  3613. /*******************************************************************************************************
  3614.  */
  3615.  
  3616. /* ARGSUSED */
  3617.  
  3618. void PopupDialog (w, event, mode)
  3619. Widget   w;
  3620. XEvent  *event;
  3621. int      mode;
  3622. {
  3623.   SG_PropertyPtr property;
  3624.   Widget         top;
  3625.   Widget         focus;
  3626.   Arg            arg;
  3627.  
  3628.   switch (mode) {
  3629.  
  3630.   case HelpDialog : 
  3631.     top   = h_top; 
  3632.     focus = NULL; 
  3633.     break;
  3634.  
  3635.   case ReallyQuitDialog :
  3636.     XtSetArg (arg, XtNlabel, (XtArgVal) ReallyQuitMsg); XtSetValues (a_msg     , &arg, 1);
  3637.     XtSetArg (arg, XtNlabel, (XtArgVal) QuitLabel    ); XtSetValues (a_confirm , &arg, 1);
  3638.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel  ); XtSetValues (a_cancel  , &arg, 1);
  3639.  
  3640.     top   = a_top;
  3641.     focus = a_confirm;
  3642.     break;
  3643.   
  3644.   case ReallyDeleteDialog :
  3645.  
  3646.     delay_event = *event;
  3647.     
  3648.     XtSetArg (arg, XtNlabel, (XtArgVal) ReallyDeleteMsg); XtSetValues (a_msg     , &arg, 1);
  3649.     XtSetArg (arg, XtNlabel, (XtArgVal) DeleteLabel    ); XtSetValues (a_confirm , &arg, 1);
  3650.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel    ); XtSetValues (a_cancel  , &arg, 1);
  3651.  
  3652.     top   = a_top;
  3653.     focus = a_confirm;
  3654.     break;
  3655.    
  3656.   case SaveBeforeQuitDialog :
  3657.   case SaveBeforeLoadDialog :
  3658.     XtSetArg (arg, XtNlabel, (XtArgVal) SaveFileBeforeMsg); XtSetValues (a_msg     , &arg, 1);
  3659.     XtSetArg (arg, XtNlabel, (XtArgVal) YesLabel         ); XtSetValues (a_confirm , &arg, 1);
  3660.     XtSetArg (arg, XtNlabel, (XtArgVal) NoLabel          ); XtSetValues (a_cancel  , &arg, 1);
  3661.  
  3662.     top   = a_top;
  3663.     focus = a_confirm;
  3664.     break;
  3665.    
  3666.   case SaveAsAndLoadDialog :
  3667.   case SaveAsAndQuitDialog :
  3668.   case SaveAsDialog        :
  3669.     XtSetArg (arg, XtNstring , (XtArgVal) file_name   ); XtSetValues (d_text    , &arg, 1);
  3670.     XtSetArg (arg, XtNlabel  , (XtArgVal) SaveFileMsg ); XtSetValues (d_msg     , &arg, 1);
  3671.     XtSetArg (arg, XtNlabel  , (XtArgVal) SaveLabel   ); XtSetValues (d_confirm , &arg, 1);
  3672.     XtSetArg (arg, XtNlabel  , (XtArgVal) CancelLabel ); XtSetValues (d_cancel  , &arg, 1);
  3673.  
  3674.     top   = d_top;
  3675.     focus = d_text;
  3676.     break;
  3677.  
  3678.   case NodeNameDialog      :
  3679.     property = SG_GetProperty (current_node, SG_nodeName);
  3680.     
  3681.     if (property != NULL && property->data.pvalue != NULL)
  3682.       { XtSetArg (arg, XtNstring , (XtArgVal) property->data.pvalue); XtSetValues (d_text    , &arg, 1); }
  3683.     else
  3684.       { XtSetArg (arg, XtNstring , (XtArgVal) ""                   ); XtSetValues (d_text    , &arg, 1); }
  3685.  
  3686.     XtSetArg (arg, XtNlabel  , (XtArgVal) NodeNameMsg ); XtSetValues (d_msg     , &arg, 1);
  3687.     XtSetArg (arg, XtNlabel  , (XtArgVal) OkLabel     ); XtSetValues (d_confirm , &arg, 1);
  3688.     XtSetArg (arg, XtNlabel  , (XtArgVal) CancelLabel ); XtSetValues (d_cancel  , &arg, 1);
  3689.  
  3690.     top   = d_top;
  3691.     focus = d_text;
  3692.     break;
  3693.  
  3694.   case LoadDialog :
  3695.     XtSetArg (arg, XtNstring , (XtArgVal) ""          ); XtSetValues (d_text    , &arg, 1);
  3696.     XtSetArg (arg, XtNlabel  , (XtArgVal) LoadFileMsg ); XtSetValues (d_msg     , &arg, 1);
  3697.     XtSetArg (arg, XtNlabel  , (XtArgVal) LoadLabel   ); XtSetValues (d_confirm , &arg, 1);
  3698.     XtSetArg (arg, XtNlabel  , (XtArgVal) CancelLabel ); XtSetValues (d_cancel  , &arg, 1);
  3699.  
  3700.     top   = d_top;
  3701.     focus = d_text;
  3702.     break;
  3703.  
  3704.   case EditDialog :
  3705.     if (edit == True) return;
  3706.  
  3707.     delay_event = *event;
  3708.     
  3709.     XtSetArg (arg, XtNlabel, (XtArgVal) EditFileMsg); XtSetValues (a_msg     , &arg, 1);
  3710.     XtSetArg (arg, XtNlabel, (XtArgVal) EditLabel  ); XtSetValues (a_confirm , &arg, 1);
  3711.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel); XtSetValues (a_cancel  , &arg, 1);
  3712.  
  3713.     top   = a_top;
  3714.     focus = a_confirm;
  3715.     break;
  3716.  
  3717.   case StopGameDialog :
  3718.     delay_event = *event;
  3719.  
  3720.   case StopGameBeforeQuitDialog :
  3721.     
  3722.     XtSetArg (arg, XtNlabel, (XtArgVal) StopGameMsg); XtSetValues (a_msg     , &arg, 1);
  3723.     XtSetArg (arg, XtNlabel, (XtArgVal) StopLabel  ); XtSetValues (a_confirm , &arg, 1);
  3724.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel); XtSetValues (a_cancel  , &arg, 1);
  3725.  
  3726.     top   = a_top;
  3727.     focus = a_confirm;
  3728.     break;
  3729.  
  3730.   case ReplaceNodeDialog :
  3731.     delay_event = *event;
  3732.  
  3733.     XtSetArg (arg, XtNlabel, (XtArgVal) ReplaceNodeMsg); XtSetValues (a_msg     , &arg, 1);
  3734.     XtSetArg (arg, XtNlabel, (XtArgVal) ReplaceLabel  ); XtSetValues (a_confirm , &arg, 1);
  3735.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel   ); XtSetValues (a_cancel  , &arg, 1);
  3736.  
  3737.     top   = a_top;
  3738.     focus = a_confirm;
  3739.     break;
  3740.  
  3741.   case MailConfirmMoveDialog :
  3742.     delay_event = *event;
  3743.  
  3744.     XtSetArg (arg, XtNlabel, (XtArgVal) MailConfirmMoveMsg); XtSetValues (a_msg     , &arg, 1);
  3745.     XtSetArg (arg, XtNlabel, (XtArgVal) ConfirmLabel      ); XtSetValues (a_confirm , &arg, 1);
  3746.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel       ); XtSetValues (a_cancel  , &arg, 1);
  3747.  
  3748.     top   = a_top;
  3749.     focus = a_confirm;
  3750.     break;
  3751.  
  3752.   case MailNoMoveDialog :
  3753.     delay_event = *event;
  3754.  
  3755.     XtSetArg (arg, XtNlabel, (XtArgVal) MailNoMoveMsg); XtSetValues (a_msg     , &arg, 1);
  3756.     XtSetArg (arg, XtNlabel, (XtArgVal) QuitLabel    ); XtSetValues (a_confirm , &arg, 1);
  3757.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel  ); XtSetValues (a_cancel  , &arg, 1);
  3758.  
  3759.     top   = a_top;
  3760.     focus = a_confirm;
  3761.     break;
  3762.  
  3763.   case RemoveStonesDialog :
  3764.     delay_event = *event;
  3765.  
  3766.     XtSetArg (arg, XtNlabel, (XtArgVal) RemoveStonesMsg); XtSetValues (a_msg     , &arg, 1);
  3767.     XtSetArg (arg, XtNlabel, (XtArgVal) RemoveLabel    ); XtSetValues (a_confirm , &arg, 1);
  3768.     XtSetArg (arg, XtNlabel, (XtArgVal) CancelLabel    ); XtSetValues (a_cancel  , &arg, 1);
  3769.  
  3770.     top   = a_top;
  3771.     focus = a_confirm;
  3772.     break;
  3773.  
  3774.   default :
  3775.     switch (mode) {
  3776.     case PlayerNodeErrorWarning  : XtSetArg (arg, XtNlabel, PlayerNodeErrorMsg ); XtSetValues (w_msg, &arg, 1); break;
  3777.     case PlayerMoveErrorWarning  : XtSetArg (arg, XtNlabel, PlayerMoveErrorMsg ); XtSetValues (w_msg, &arg, 1); break;
  3778.     case MemoryErrorDialog       : XtSetArg (arg, XtNlabel, MemoryErrorMsg     ); XtSetValues (w_msg, &arg, 1); break;
  3779.     case CantOpenFileDialog      : XtSetArg (arg, XtNlabel, CantOpenFileMsg    ); XtSetValues (w_msg, &arg, 1); break;
  3780.     case IllegalMoveDialog       : XtSetArg (arg, XtNlabel, IllegalMoveMsg     ); XtSetValues (w_msg, &arg, 1); break;
  3781.     case SuicideMoveDialog       : XtSetArg (arg, XtNlabel, SuicideMoveMsg     ); XtSetValues (w_msg, &arg, 1); break;
  3782.     case KoMoveDialog            : XtSetArg (arg, XtNlabel, KoMoveMsg          ); XtSetValues (w_msg, &arg, 1); break;
  3783.     case BadHandicapWarning      : XtSetArg (arg, XtNlabel, BadHandicapMsg     ); XtSetValues (w_msg, &arg, 1); break;
  3784.     case RemainingStonesWarning  : XtSetArg (arg, XtNlabel, RemainingStonesMsg ); XtSetValues (w_msg, &arg, 1); break;
  3785.     case DiagramBadNodeWarning   : XtSetArg (arg, XtNlabel, DiagramBadNodeMsg  ); XtSetValues (w_msg, &arg, 1); break;
  3786.     case SizeBadNodeWarning      : XtSetArg (arg, XtNlabel, SizeBadNodeMsg     ); XtSetValues (w_msg, &arg, 1); break;
  3787.     case WallyWhitePlayWarning   : XtSetArg (arg, XtNlabel, WallyWhitePlayMsg  ); XtSetValues (w_msg, &arg, 1); break;
  3788.     case WallyBadSizeWarning     : XtSetArg (arg, XtNlabel, WallyBadSizeMsg    ); XtSetValues (w_msg, &arg, 1); break;
  3789.     case WallyBadHandicapWarning : XtSetArg (arg, XtNlabel, WallyBadHandicapMsg); XtSetValues (w_msg, &arg, 1); break;
  3790.     case BlackPassDialog         : XtSetArg (arg, XtNlabel, BlackPassMsg       ); XtSetValues (w_msg, &arg, 1); break;
  3791.     case WhitePassDialog         : XtSetArg (arg, XtNlabel, WhitePassMsg       ); XtSetValues (w_msg, &arg, 1); break;
  3792.     }
  3793.  
  3794.     top   = w_top;
  3795.     focus = w_confirm;
  3796.     break;
  3797.   }
  3798.  
  3799.   dialog_mode   = mode;
  3800.   dialog_widget = top;
  3801.  
  3802.   CenterWindow  (top, focus);
  3803.   XtPopup       (top, XtGrabNonexclusive);
  3804. }
  3805.  
  3806. /*******************************************************************************************************
  3807.  */
  3808.  
  3809. static void dialogConfirm  (w, event)
  3810. Widget    w;
  3811. XEvent   *event;
  3812. {
  3813.   SG_NodePtr     node;
  3814.   String         name;
  3815.   Arg            arg;
  3816.  
  3817.   XtPopdown (dialog_widget);
  3818.  
  3819.   switch (dialog_mode) {
  3820.  
  3821.   case ReallyDeleteDialog :
  3822.     delete_confirm = True;
  3823.     XPutBackEvent (XtDisplay (w), &delay_event);
  3824.     break;
  3825.  
  3826.   case ReallyQuitDialog :
  3827.     exit (1);
  3828.     break;
  3829.  
  3830.   case SaveBeforeQuitDialog :
  3831.     if (file_name[0] != '\0') {
  3832.       if (SaveFile (w, event, file_name) == True)
  3833.     (void) exit (1);
  3834.     }
  3835.  
  3836.     else 
  3837.       PopupDialog (w, event, SaveAsAndQuitDialog);
  3838.     break;
  3839.  
  3840.   case SaveBeforeLoadDialog :
  3841.     if (file_name[0] != '\0') {
  3842.       if (SaveFile (w, event, file_name) == True)
  3843.     PopupDialog (w, event, LoadDialog);
  3844.     }
  3845.  
  3846.     else 
  3847.       PopupDialog (w, event, SaveAsAndLoadDialog);
  3848.     break;
  3849.  
  3850.   case NodeNameDialog      :
  3851.     XtSetArg (arg, XtNstring, (XtArgVal) &name); 
  3852.     XtGetValues (d_text, &arg, 1);
  3853.  
  3854.     SG_MakeProperty (current_node, SG_nodeName, name);
  3855.     ShowTmpProperty (current_node);
  3856.  
  3857.     modified = True;
  3858.     break;
  3859.  
  3860.   case SaveAsAndQuitDialog :
  3861.   case SaveAsAndLoadDialog :
  3862.   case SaveAsDialog        :
  3863.     
  3864.     XtSetArg (arg, XtNstring, (XtArgVal) &name); XtGetValues (d_text, &arg, 1);
  3865.     
  3866.     if (SaveFile (w, event, name) == True)
  3867.       switch (dialog_mode) {
  3868.       case SaveAsAndQuitDialog : exit (1);
  3869.       case SaveAsAndLoadDialog : PopupDialog (w, event, LoadDialog);
  3870.       }
  3871.     break;
  3872.     
  3873.   case LoadDialog :
  3874.     XtSetArg (arg, XtNstring , (XtArgVal) &name); XtGetValues (d_text, &arg, 1);
  3875.  
  3876.     if (LoadFile (w, event, name) == True) {
  3877.       XtSetArg (arg, XtNtitle , (XtArgVal) ApplicationName); XtSetValues (w_toplevel, &arg, 1);
  3878.       XtSetArg (arg, XtNstring, (XtArgVal) ""             ); XtSetValues (c_comment , &arg, 1);
  3879.       XtSetArg (arg, XtNstring, (XtArgVal) ""             ); XtSetValues (d_text    , &arg, 1); 
  3880.  
  3881.       GbClearBoard  (w_goban);
  3882.  
  3883.       Play           (current_node);
  3884.       ShowProperty   (current_node);
  3885.       RedisplayBoard ();
  3886.  
  3887.       Edit (False);
  3888.     }
  3889.     break;
  3890.     
  3891.   case EditDialog :
  3892.     Edit (True);
  3893.  
  3894.     XPutBackEvent (XtDisplay (w), &delay_event);
  3895.     break;
  3896.     
  3897.   case StopGameDialog :
  3898.     stopGame ();
  3899.  
  3900.     XPutBackEvent (XtDisplay (w), &delay_event);
  3901.     break;
  3902.  
  3903.   case StopGameBeforeQuitDialog :
  3904.     stopGame ();
  3905.     (void) exit (1);
  3906.  
  3907.     /* NOTREACHED */
  3908.  
  3909.   case RemoveStonesDialog :
  3910.   case ReplaceNodeDialog :
  3911.     node = current_node->down;
  3912.     
  3913.     SG_RemoveNode (node);
  3914.     SG_FreeNode   (node);
  3915.     
  3916.     modified = True;
  3917.     
  3918.     XPutBackEvent (XtDisplay (w), &delay_event);
  3919.     break;
  3920.     
  3921.   case MailNoMoveDialog :
  3922.     (void) exit (1); 
  3923.  
  3924.     /* NOTREACHED */
  3925.  
  3926.   case MailConfirmMoveDialog :
  3927.     if (SaveFile (w, event, mail_file_name) == True)
  3928.       (void) exit (0);
  3929.     else
  3930.       (void) exit (1);
  3931.     
  3932.     /* NOTREACHED */
  3933.   }
  3934. }
  3935.  
  3936. /*******************************************************************************************************
  3937.  */
  3938.  
  3939. static void dialogCancel  (w, event) 
  3940. Widget    w;
  3941. XEvent   *event;
  3942. { 
  3943.   XtPopdown (dialog_widget);
  3944.  
  3945.   switch (dialog_mode) {
  3946.   case SaveBeforeQuitDialog : PopupDialog (w, event, ReallyQuitDialog); break;
  3947.   case SaveBeforeLoadDialog : PopupDialog (w, event, LoadDialog      ); break;
  3948.   }
  3949. }
  3950.  
  3951. /*******************************************************************************************************
  3952.  */
  3953.  
  3954. void makeDialogWindow (toplevel, app_context)
  3955. Widget        toplevel;
  3956. XtAppContext  app_context;
  3957. {
  3958.   static XtActionsRec   actions[] = {
  3959.     { "dialogConfirm"   , dialogConfirm  , },
  3960.     { "dialogCancel"    , dialogCancel   , },
  3961.   }; 
  3962.   
  3963.   Arg            args[10];
  3964.   int            xtargc;
  3965.   XtTranslations translations;
  3966.   
  3967.   XtAppAddActions (app_context, actions, XtNumber(actions));
  3968.   
  3969.   /*
  3970.    *    Dialog Window.
  3971.    */
  3972.   
  3973.   translations = XtParseTranslationTable 
  3974.     ("#override                        \
  3975.       <Key> Escape   : dialogCancel()  \n\
  3976.       <Key> Linefeed : dialogConfirm() \n\
  3977.       <Key> Return   : dialogConfirm() \n\
  3978.       Ctrl <Key> J   : dialogConfirm() \n\
  3979.       Ctrl <Key> M   : dialogConfirm()");
  3980.   
  3981.   d_top      = XtCreatePopupShell ("dialog"     , transientShellWidgetClass, toplevel , NULL, 0);
  3982.   
  3983.   xtargc = 0;
  3984.   XtSetArg (args[xtargc], XtNdefaultDistance  , (XtArgVal) 12          ); xtargc++;
  3985.   XtSetArg (args[xtargc], XtNtranslations     , (XtArgVal) translations); xtargc++;
  3986.  
  3987.   d_form     = XtCreateManagedWidget ("form"     , formWidgetClass     , d_top   , args, xtargc);
  3988.  
  3989.   xtargc = 0;
  3990.   XtSetArg (args[xtargc], XtNwidth            , (XtArgVal) 294         ); xtargc++;  
  3991.   XtSetArg (args[xtargc], XtNborderWidth      , (XtArgVal) 0           ); xtargc++;  
  3992.  
  3993.   d_msg      = XtCreateManagedWidget ("msg"      , labelWidgetClass    , d_form   , args, xtargc);
  3994.   
  3995.   xtargc = 0;
  3996.   XtSetArg (args[xtargc], XtNfromVert         , (XtArgVal) d_msg       ); xtargc++;  
  3997.   XtSetArg (args[xtargc], XtNwidth            , (XtArgVal) 294         ); xtargc++;  
  3998.   XtSetArg (args[xtargc], XtNvertDistance     , (XtArgVal) 8           ); xtargc++;  
  3999.   XtSetArg (args[xtargc], XtNeditType         , (XtArgVal) XawtextEdit ); xtargc++;  
  4000.   XtSetArg (args[xtargc], XtNtranslations     , (XtArgVal) translations); xtargc++;  
  4001.  
  4002.   d_text     = XtCreateManagedWidget ("text"     , asciiTextWidgetClass, d_form   , args, xtargc);
  4003.   
  4004.   xtargc = 0;
  4005.   XtSetArg (args[xtargc], XtNfromVert         , (XtArgVal) d_text      ); xtargc++;  
  4006.   XtSetArg (args[xtargc], XtNwidth            , (XtArgVal) 140         ); xtargc++;  
  4007.  
  4008. #ifndef NO_EXTENSION
  4009.   XtSetArg (args[xtargc], XtNshapeStyle       , (XtArgVal) XmuShapeOval); xtargc++;  
  4010. #endif
  4011.  
  4012.   d_cancel   = XtCreateManagedWidget ("cancel"   , commandWidgetClass  , d_form   , args, xtargc);
  4013.   
  4014.   xtargc = 0;
  4015.   XtSetArg (args[xtargc], XtNfromVert         , (XtArgVal) d_text      ); xtargc++;  
  4016.   XtSetArg (args[xtargc], XtNfromHoriz        , (XtArgVal) d_cancel    ); xtargc++;  
  4017.   XtSetArg (args[xtargc], XtNwidth            , (XtArgVal) 140         ); xtargc++;  
  4018.  
  4019. #ifndef NO_EXTENSION
  4020.   XtSetArg (args[xtargc], XtNshapeStyle       , (XtArgVal) XmuShapeOval); xtargc++;  
  4021. #endif
  4022.   
  4023.   d_confirm  = XtCreateManagedWidget ("confirm"  , commandWidgetClass  , d_form   , args, xtargc);
  4024.   
  4025.   XtAddCallback (d_cancel , XtNcallback, dialogCancel , NULL);
  4026.   XtAddCallback (d_confirm, XtNcallback, dialogConfirm, NULL);
  4027.  
  4028.   XtRealizeWidget (d_top);
  4029.  
  4030.   /*
  4031.    *    Ask Window.
  4032.    */
  4033.    
  4034.   a_top      = XtCreatePopupShell ("ask", transientShellWidgetClass, toplevel, NULL, 0);
  4035.   
  4036.   xtargc = 0;
  4037.   XtSetArg (args[xtargc], XtNdefaultDistance, (XtArgVal) 12          ); xtargc++;  
  4038.   XtSetArg (args[xtargc], XtNtranslations   , (XtArgVal) translations); xtargc++;  
  4039.   
  4040.   a_form     = XtCreateManagedWidget ("form"     , formWidgetClass     , a_top    , args, xtargc);
  4041.   
  4042.   xtargc = 0;
  4043.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 214         ); xtargc++;  
  4044.   XtSetArg (args[xtargc], XtNheight         , (XtArgVal) 30          ); xtargc++;  
  4045.   XtSetArg (args[xtargc], XtNborderWidth    , (XtArgVal) 0           ); xtargc++;  
  4046.   
  4047.   a_msg      = XtCreateManagedWidget ("msg"      , labelWidgetClass    , a_form   , args, xtargc);
  4048.   
  4049.   xtargc = 0;
  4050.   XtSetArg (args[xtargc], XtNfromVert       , (XtArgVal) a_msg       ); xtargc++;  
  4051.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 100         ); xtargc++;  
  4052.  
  4053. #ifndef NO_EXTENSION
  4054.   XtSetArg (args[xtargc], XtNshapeStyle     , (XtArgVal) XmuShapeOval); xtargc++;  
  4055. #endif
  4056.  
  4057.   a_cancel   = XtCreateManagedWidget ("cancel"   , commandWidgetClass  , a_form   , args, xtargc);
  4058.   
  4059.   xtargc = 0;
  4060.   XtSetArg (args[xtargc], XtNfromVert       , (XtArgVal) a_msg       ); xtargc++;  
  4061.   XtSetArg (args[xtargc], XtNfromHoriz      , (XtArgVal) a_cancel    ); xtargc++;  
  4062.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 100         ); xtargc++;  
  4063.  
  4064. #ifndef NO_EXTENSION
  4065.   XtSetArg (args[xtargc], XtNshapeStyle     , (XtArgVal) XmuShapeOval); xtargc++;  
  4066. #endif
  4067.   
  4068.   a_confirm  = XtCreateManagedWidget ("confirm"  , commandWidgetClass  , a_form   , args, xtargc);
  4069.   
  4070.   XtAddCallback (a_cancel , XtNcallback, dialogCancel , NULL);
  4071.   XtAddCallback (a_confirm, XtNcallback, dialogConfirm, NULL);
  4072.   
  4073.   XtRealizeWidget (a_top);
  4074.  
  4075.   /*
  4076.    *    Warning Window.
  4077.    */
  4078.   
  4079.   translations = XtParseTranslationTable 
  4080.     ("#override                    \
  4081.       <BtnDown>  : dialogCancel()  \n\
  4082.       <Key>      : dialogCancel()");
  4083.   
  4084.   w_top     = XtCreatePopupShell ("warning", transientShellWidgetClass, toplevel, NULL, 0);
  4085.    
  4086.   xtargc = 0;
  4087.   XtSetArg (args[xtargc], XtNdefaultDistance, (XtArgVal) 12          ); xtargc++;  
  4088.   XtSetArg (args[xtargc], XtNtranslations   , (XtArgVal) translations); xtargc++;  
  4089.  
  4090.   w_form     = XtCreateManagedWidget ("form"     , formWidgetClass     , w_top    , args, xtargc);
  4091.   
  4092.   xtargc = 0;
  4093.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 206         ); xtargc++;  
  4094.   XtSetArg (args[xtargc], XtNheight         , (XtArgVal) 48          ); xtargc++;  
  4095.   XtSetArg (args[xtargc], XtNborderWidth    , (XtArgVal) 0           ); xtargc++;  
  4096.   
  4097.   w_msg      = XtCreateManagedWidget ("msg"      , labelWidgetClass    , w_form   , args, xtargc);
  4098.   
  4099.   xtargc = 0;
  4100.   XtSetArg (args[xtargc], XtNfromVert       , (XtArgVal) w_msg       ); xtargc++;  
  4101.   XtSetArg (args[xtargc], XtNwidth          , (XtArgVal) 100         ); xtargc++;  
  4102.   XtSetArg (args[xtargc], XtNhorizDistance  , (XtArgVal) 65          ); xtargc++;  
  4103.   XtSetArg (args[xtargc], XtNlabel          , (XtArgVal) OkLabel     ); xtargc++;  
  4104.  
  4105. #ifndef NO_EXTENSION
  4106.   XtSetArg (args[xtargc], XtNshapeStyle     , (XtArgVal) XmuShapeOval); xtargc++;  
  4107. #endif
  4108.  
  4109.   w_confirm  = XtCreateManagedWidget ("confirm"  , commandWidgetClass  , w_form   , args, xtargc);
  4110.   
  4111.   XtAddCallback (w_confirm, XtNcallback, dialogCancel, NULL);
  4112.  
  4113.   XtRealizeWidget (w_top);
  4114.   
  4115.   /*
  4116.    *  Help window
  4117.    */
  4118.  
  4119.   h_top  = XtCreatePopupShell ("help", transientShellWidgetClass, w_toplevel, NULL, 0); 
  4120.   
  4121.   xtargc = 0;
  4122.   XtSetArg (args[xtargc], XtNlabel        , (XtArgVal) HelpString  ); xtargc++;  
  4123.   XtSetArg (args[xtargc], XtNtranslations , (XtArgVal) translations); xtargc++;  
  4124.  
  4125.   h_text     = XtCreateManagedWidget ("text"     , labelWidgetClass    ,  h_top   , args, xtargc);
  4126.  
  4127.   XtRealizeWidget (h_top);
  4128. }
  4129. SHAR_EOF
  4130. fi # end of overwriting check
  4131. if test -f 'xgoban.c'
  4132. then
  4133.     echo shar: will not over-write existing file "'xgoban.c'"
  4134. else
  4135. cat << \SHAR_EOF > 'xgoban.c'
  4136. /****************************************************************************************************************
  4137.  *
  4138.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  4139.  *
  4140.  *  This program is distributed in the hope that it will be useful.
  4141.  *  Use and copying of this software and preparation of derivative works
  4142.  *  based upon this software are permitted, so long as the following
  4143.  *  conditions are met:
  4144.  *       o credit to the authors is acknowledged following current
  4145.  *         academic behaviour
  4146.  *       o no fees or compensation are charged for use, copies, or
  4147.  *         access to this software
  4148.  *       o this copyright notice is included intact.
  4149.  *  This software is made available AS IS, and no warranty is made about 
  4150.  *  the software or its performance. 
  4151.  * 
  4152.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  4153.  *  Send them to    dumesnil@etca.fr   or to:
  4154.  *       
  4155.  *       Antoine de Maricourt
  4156.  *       ETCA CREA-SP
  4157.  *       16 bis, avenue Prieur de la Cote d'Or
  4158.  *       94114 Arcueil Cedex
  4159.  *       France
  4160.  */
  4161.  
  4162. #include <stdio.h>
  4163. #include <malloc.h>
  4164. #include <ctype.h>
  4165.  
  4166. #include <X11/Intrinsic.h>
  4167. #include <X11/Shell.h>
  4168. #include <X11/StringDefs.h>
  4169.  
  4170. #include <X11/Xaw/Form.h>
  4171. #include <X11/Xaw/AsciiText.h>
  4172. #include <X11/Xaw/SimpleMenu.h>
  4173. #include <X11/Xaw/SmeBSB.h>
  4174.  
  4175. #include "xgoban.h"
  4176. #include "icon.bm"
  4177.  
  4178. Widget      w_toplevel;
  4179. Widget      w_form;
  4180. Widget      w_goban;
  4181. Widget      w_menu            = NULL;
  4182. Widget      c_toplevel;
  4183. Widget      c_comment;
  4184. Widget      w_second_toplevel = NULL;
  4185. Widget      w_second_goban    = NULL;
  4186.  
  4187. SG_NodePtr  tree          = NULL;
  4188. SG_NodePtr  current_node  = NULL;
  4189. SG_NodePtr  mail_node     = NULL;
  4190.  
  4191. Mode        current_mode  = EditMode;
  4192.  
  4193. Player      black_player  = Human;
  4194. Player      white_player  = Human;
  4195. int         handicap      = 0;
  4196. int         board_size    = 19;
  4197. int         second_player = 0;
  4198.  
  4199. Boolean     edit          = False;
  4200. Boolean     modified      = False;
  4201. Boolean     autonum;
  4202. Boolean     strict;
  4203. Boolean     short_print   = False;
  4204. int         beep;
  4205.  
  4206. String      file = NULL;
  4207.  
  4208. char        file_name[512];
  4209. char        mail_file_name[512];
  4210. char       *path;
  4211.  
  4212. /*******************************************************************************************************
  4213.  */
  4214.  
  4215. typedef struct {
  4216.   int        handicap;
  4217.   int        size;
  4218.   int        stipple;
  4219.   String     path;
  4220.   String     mail;
  4221.   int        beep;
  4222.   Boolean    help;
  4223.   Boolean    autonum;
  4224.   Boolean    strict;
  4225.   Boolean    short_print;
  4226.   String     black;
  4227.   String     white;
  4228.   Dimension  point_size;
  4229.   String     white_dsp;
  4230.   String     black_dsp;
  4231. } AppData, *AppDataPtr;
  4232.  
  4233. static XtResource resources[] = {
  4234.   { "blackDisplay", XtCString   , XtRString   , sizeof (String)   , XtOffset (AppDataPtr, black_dsp)  , XtRString    , (caddr_t) NULL , },
  4235.   { "whiteDisplay", XtCString   , XtRString   , sizeof (String)   , XtOffset (AppDataPtr, white_dsp)  , XtRString    , (caddr_t) NULL , },
  4236.   { "path"        , XtCString   , XtRString   , sizeof (String)   , XtOffset (AppDataPtr, path)       , XtRString    , (caddr_t) "."  , },
  4237.   { "handicap"    , "Handicap"  , XtRInt      , sizeof (int)      , XtOffset (AppDataPtr, handicap)   , XtRImmediate , (caddr_t) 0    , },
  4238.   { "size"        , "Size"      , XtRInt      , sizeof (int)      , XtOffset (AppDataPtr, size)       , XtRImmediate , (caddr_t) 19   , },
  4239.   { "stipple"     , "Stipple"   , XtRInt      , sizeof (int)      , XtOffset (AppDataPtr, stipple)    , XtRImmediate , (caddr_t) 0    , },
  4240.   { "beep"        , "Beep"      , XtRInt      , sizeof (int)      , XtOffset (AppDataPtr, beep)       , XtRImmediate , (caddr_t) 0    , },
  4241.   { "short"       , XtCBoolean  , XtRBoolean  , sizeof (Boolean)  , XtOffset (AppDataPtr, short_print), XtRImmediate , (caddr_t) False, },
  4242.   { "mail"        , XtCString   , XtRString   , sizeof (String)   , XtOffset (AppDataPtr, mail)       , XtRString    , (caddr_t) NULL , },
  4243.   { "autonum"     , XtCBoolean  , XtRBoolean  , sizeof (Boolean)  , XtOffset (AppDataPtr, autonum)    , XtRImmediate , (caddr_t) True , },
  4244.   { "versatile"   , XtCBoolean  , XtRBoolean  , sizeof (Boolean)  , XtOffset (AppDataPtr, strict)     , XtRImmediate , (caddr_t) True , },
  4245.   { "black"       , XtCString   , XtRString   , sizeof (String)   , XtOffset (AppDataPtr, black)      , XtRImmediate , (caddr_t) NULL , },
  4246.   { "white"       , XtCString   , XtRString   , sizeof (String)   , XtOffset (AppDataPtr, white)      , XtRImmediate , (caddr_t) NULL , },
  4247.   { "help"        , XtCBoolean  , XtRBoolean  , sizeof (Boolean)  , XtOffset (AppDataPtr, help)       , XtRImmediate , (caddr_t) False, },
  4248.   { "pointSize"   , "Size"      , XtRDimension, sizeof (Dimension), XtOffset (AppDataPtr, point_size) , XtRImmediate , (caddr_t) 26   , },
  4249. };
  4250.  
  4251. static XrmOptionDescRec options[] = {
  4252.   { "-help"           , ".help"           , XrmoptionNoArg  , "True"  , },
  4253.   { "-size"           , ".size"           , XrmoptionSepArg , NULL    , },
  4254.   { "-handicap"       , ".handicap"       , XrmoptionSepArg , NULL    , },
  4255.   { "-path"           , ".path"           , XrmoptionSepArg , NULL    , },
  4256.   { "-pointSize"      , ".pointSize"      , XrmoptionSepArg , NULL    , },
  4257.   { "-silent"         , ".beep"           , XrmoptionNoArg  , "-101"  , },
  4258.   { "-beep"           , ".beep"           , XrmoptionSepArg , NULL    , },
  4259.   { "-nonum"          , ".autonum"        , XrmoptionNoArg  , "False" , },
  4260.   { "-versatile"      , ".versatile"      , XrmoptionNoArg  , "False" , },
  4261.   { "-black"          , ".black"          , XrmoptionSepArg , NULL    , },
  4262.   { "-white"          , ".white"          , XrmoptionSepArg , NULL    , },
  4263.   { "-stipple1"       , ".stipple"        , XrmoptionNoArg  , "1"     , },
  4264.   { "-stipple2"       , ".stipple"        , XrmoptionNoArg  , "2"     , },
  4265.   { "-stipple3"       , ".stipple"        , XrmoptionNoArg  , "3"     , },
  4266.  
  4267.  
  4268.   { "-m"              , ".mail"           , XrmoptionSepArg , NULL    , },
  4269.   { "-s"              , ".short"          , XrmoptionNoArg  , "True"  , },
  4270.   { "-mail"           , ".mail"           , XrmoptionSepArg , NULL    , },
  4271.   { "-short"          , ".short"          , XrmoptionNoArg  , "True"  , },
  4272.   { "-blackDisplay"   , ".blackDisplay"   , XrmoptionSepArg , NULL    , },
  4273.   { "-whiteDisplay"   , ".whiteDisplay"   , XrmoptionSepArg , NULL    , },
  4274. };
  4275.  
  4276. static AppData  app_data;
  4277.  
  4278. static char *stars[18] = {
  4279.   "",                /*  2  */  
  4280.   "",                /*  3  */  
  4281.   "",                /*  4  */  
  4282.   "",                /*  5  */  
  4283.   "",                /*  6  */  
  4284.   "",                /*  7  */  
  4285.   "cffcffcc",            /*  8  */    
  4286.   "cggcggccee",            /*  9  */  
  4287.   "hchhchcc",            /* 10  */  
  4288.   "ciiciiccffcfiffcfi",        /* 11  */  
  4289.   "cjjcjjcc",            /* 12  */  
  4290.   "ckkckkccggcgkggcgk",        /* 13  */  
  4291.   "dkkdkkdd",            /* 14  */  
  4292.   "dlldllddhhdhlhhdhl",        /* 15  */  
  4293.   "dmmdmmdd",            /* 16  */  
  4294.   "dnndnnddiidiniidin",        /* 17  */  
  4295.   "doodoodd",            /* 18  */  
  4296.   "dppdppddjjdjpjjdjp",        /* 19  */  
  4297. };
  4298.  
  4299. char translations_table[] =
  4300.   "#override                                                                            \
  4301.    Ctrl Shift <Key> P        : makeVariationPass()                                    \n\
  4302.    Shift <Key> A             : selectVariation(A)                                     \n\
  4303.    Shift <Key> B             : selectVariation(B)                                     \n\
  4304.    Shift <Key> C             : selectVariation(C)                                     \n\
  4305.    Shift <Key> D             : selectVariation(D)                                     \n\
  4306.    Shift <Key> E             : selectVariation(E)                                     \n\
  4307.    Shift <Key> F             : selectVariation(F)                                     \n\
  4308.    Shift <Key> G             : selectVariation(G)                                     \n\
  4309.    Shift <Key> H             : selectVariation(H)                                     \n\
  4310.    Shift <Key> I             : selectVariation(I)                                     \n\
  4311.    Shift <Key> J             : selectVariation(J)                                     \n\
  4312.    Shift <Key> K             : selectVariation(K)                                     \n\
  4313.    Shift <Key> L             : selectVariation(L)                                     \n\
  4314.    Shift <Key> M             : selectVariation(M)                                     \n\
  4315.    Shift <Key> N             : selectVariation(N)                                     \n\
  4316.    Shift <Key> O             : selectVariation(O)                                     \n\
  4317.    Shift <Key> P             : selectVariation(P)                                     \n\
  4318.    Shift <Key> Q             : selectVariation(Q)                                     \n\
  4319.    Shift <Key> R             : selectVariation(R)                                     \n\
  4320.    Shift <Key> S             : selectVariation(S)                                     \n\
  4321.    Shift <Key> T             : selectVariation(T)                                     \n\
  4322.    Shift <Key> U             : selectVariation(U)                                     \n\
  4323.    Shift <Key> V             : selectVariation(V)                                     \n\
  4324.    Shift <Key> W             : selectVariation(W)                                     \n\
  4325.    Shift <Key> X             : selectVariation(X)                                     \n\
  4326.    Shift <Key> Y             : selectVariation(Y)                                     \n\
  4327.    Shift <Key> Z             : selectVariation(Z)                                     \n\
  4328.    Shift <Key> }             : nextComment()                                          \n\
  4329.    Shift <Key> {             : previousComment()                                      \n\
  4330.    <Key> a                   : setMode(Diagram)                                       \n\
  4331.    <Key> b                   : setPlayer(Black)                                       \n\
  4332.    <Key> e                   : dialog(Edit)                                           \n\
  4333.    <Key> p                   : pass()                                                 \n\
  4334.    <Key> i                   : eventInfo()                                            \n\
  4335.    <Key> v                   : setMode(View)                                          \n\
  4336.    <Key> w                   : setPlayer(White)                                       \n\
  4337.    <Key> z                   : setMode(Size)                                          \n\
  4338.    <Key> Escape              : setMode(Edit)                                          \n\
  4339.    <Key> l                   : dialog(Load)                                           \n\
  4340.    <Key> n                   : dialog(NodeName)                                       \n\
  4341.    <Key> q                   : exit()                                                 \n\
  4342.    <Key> s                   : dialog(Save)                                           \n\
  4343.    <Key> ]                   : nextVariationBranch()                                  \n\
  4344.    <Key> [                   : previousVariationBranch()                              \n\
  4345.    <Key> <                   : previousMove()                                         \n\
  4346.    <Key> >                   : nextMove()                                             \n\
  4347.    <Key> ?                   : dialog(Help)                                           \n\
  4348.    <Key> h                   : dialog(Help)                                           \n\
  4349.    Ctrl Shift <Btn1Down>     : makeVariation()                                        \n\
  4350.    Ctrl Shift <Btn2Down>     : makeVariationDiagram()                                 \n\
  4351.    Shift <Btn1Down>          : makeMove()                                             \n\
  4352.    Shift <Btn3Down>          : deleteMove()                                           \n\
  4353.    Ctrl <Btn1Down>           : letter()                                               \n\
  4354.    Ctrl <Btn2Down>           : mark()                                                 \n\
  4355.    Ctrl <Btn3Down>           : deleteMark()                                           \n\
  4356.    <Btn1Down>                : nextMove() add(Black) drag(Start)                      \n\
  4357.    <Btn2Down>                : add(White) selectDiagram()                             \n\
  4358.    <Btn3Down>                : previousMove() add(Empty)                              \n\
  4359.    <Btn1Motion>              : drag()                                                 \n\
  4360.    <Btn1Up>                  : drag(Stop)                                             \n\
  4361. "; 
  4362.  
  4363. /*******************************************************************************************************
  4364.  */
  4365.  
  4366. extern void SelectDiagram           ();
  4367. extern void Dialog                  ();
  4368. extern void NextMove                ();
  4369. extern void PreviousMove            ();
  4370. extern void SelectVariation         ();
  4371. extern void NextVariationBranch     ();
  4372. extern void PreviousVariationBranch ();
  4373. extern void NextComment             ();
  4374. extern void PreviousComment         ();
  4375. extern void Exit                    ();
  4376. extern void Help                    ();
  4377. extern void PopdownHelp             ();
  4378. extern void MakeVariationDiagram    ();
  4379. extern void SetPlayer               ();
  4380. extern void Add                     ();
  4381. extern void SetMode                 ();
  4382. extern void MakeMove                ();
  4383. extern void Pass                    ();
  4384. extern void DeleteMove              ();
  4385. extern void DeleteMark              ();
  4386. extern void MakeVariation           ();
  4387. extern void MakeVariationPass       ();
  4388. extern void Drag                    ();
  4389. extern void Letter                  ();
  4390. extern void Mark                    ();
  4391. extern void EventInfo               ();
  4392.  
  4393. XtActionsRec actions[] = {
  4394.   { "selectDiagram"           , SelectDiagram           , },
  4395.   { "dialog"                  , Dialog                  , },
  4396.   { "nextMove"                , NextMove                , },
  4397.   { "previousMove"            , PreviousMove            , },
  4398.   { "selectVariation"         , SelectVariation         , },
  4399.   { "nextVariationBranch"     , NextVariationBranch     , },
  4400.   { "previousVariationBranch" , PreviousVariationBranch , },
  4401.   { "nextComment"             , NextComment             , },
  4402.   { "previousComment"         , PreviousComment         , },
  4403.   { "exit"                    , Exit                    , },
  4404.   { "makeVariationDiagram"    , MakeVariationDiagram    , },
  4405.   { "setPlayer"               , SetPlayer               , },
  4406.   { "add"                     , Add                     , },
  4407.   { "selectDiagram"           , SelectDiagram           , },
  4408.   { "setMode"                 , SetMode                 , },
  4409.   { "makeMove"                , MakeMove                , },
  4410.   { "deleteMove"              , DeleteMove              , },
  4411.   { "deleteMark"              , DeleteMark              , },
  4412.   { "pass"                    , Pass                    , },
  4413.   { "makeVariation"           , MakeVariation           , },
  4414.   { "makeVariationPass"       , MakeVariationPass       , },
  4415.   { "drag"                    , Drag                    , },
  4416.   { "letter"                  , Letter                  , },
  4417.   { "mark"                    , Mark                    , },
  4418.   { "eventInfo"               , EventInfo               , },
  4419. }; 
  4420.  
  4421. extern void exit ();
  4422.  
  4423. #define stipple1_width  2
  4424. #define stipple1_height 2
  4425.  
  4426. static char stipple1_bits[] = {
  4427.    0x01, 0x02};
  4428.  
  4429. #define stipple2_width  4
  4430. #define stipple2_height 4
  4431.  
  4432. static char stipple2_bits[] = {
  4433.    0x05, 0x00, 0x0a, 0x00};
  4434.  
  4435. #define stipple3_width  4
  4436. #define stipple3_height 4
  4437.  
  4438. static char stipple3_bits[] = {
  4439.    0x01, 0x00, 0x00, 0x00};
  4440.  
  4441.  
  4442. void main (argc, argv)
  4443. int    argc;
  4444. char **argv;
  4445. {
  4446.   XtAppContext   app_context;
  4447.   Display       *display;
  4448.   Display       *second_display;
  4449.   Drawable       window;
  4450.   String         title;
  4451.   String         icon_title;
  4452.   Pixmap         icon_pixmap;
  4453.   Arg            args[16];
  4454.   int            xtargc;
  4455.  
  4456.   w_toplevel = XtAppInitialize (&app_context, ApplicationName,  options, XtNumber (options), 
  4457.                 &argc, argv, NULL, NULL, 0);
  4458.  
  4459.   XtGetApplicationResources (w_toplevel, &app_data, resources, XtNumber (resources), NULL, 0);
  4460.  
  4461.   if (argc == 2 && argv[1][0] != '-')
  4462.     file = argv[1];
  4463.  
  4464.   else if (argc > 1)
  4465.     app_data.help = True;
  4466.  
  4467.   /*
  4468.    *    help option 
  4469.    */
  4470.    
  4471.   if (app_data.help == True) {
  4472.     (void) fprintf (stderr, "%s", UsageString);
  4473.     (void) exit (1);
  4474.   }
  4475.  
  4476.   /*
  4477.    *    Various options 
  4478.    */
  4479.  
  4480.   if (app_data.beep > 100)
  4481.     app_data.beep = 0;
  4482.  
  4483.   path        = app_data.path;
  4484.   beep        = app_data.beep;
  4485.   autonum     = app_data.autonum;
  4486.   strict      = app_data.strict;
  4487.   short_print = app_data.short_print;
  4488.  
  4489.   if (strict == False) autonum = False;
  4490.  
  4491.   /*
  4492.    *    Mail option
  4493.    */
  4494.  
  4495.   if (app_data.mail != NULL) {
  4496.  
  4497.     if (file == NULL) {
  4498.       (void) fprintf (stderr, "XGoban : Mail mode : no input file specified\n");
  4499.       (void) exit (1);
  4500.     }
  4501.  
  4502.     strcpy (mail_file_name, app_data.mail);
  4503.  
  4504.     current_mode = MailMode;
  4505.     edit         = True;
  4506.   }
  4507.  
  4508.   /*
  4509.    *    Widget creation
  4510.    */
  4511.  
  4512.   display   = XtDisplay (w_toplevel);
  4513.   window    = RootWindowOfScreen (XtScreen (w_toplevel));
  4514.  
  4515.   icon_pixmap = XCreateBitmapFromData (display, window, icon_bits, icon_width, icon_height);
  4516.  
  4517.   xtargc    = 0;
  4518.   XtSetArg (args[xtargc], XtNiconPixmap       , (XtArgVal) icon_pixmap         ); xtargc++;
  4519.   XtSetArg (args[xtargc], XtNtitle            , (XtArgVal) ApplicationName     ); xtargc++;
  4520.   XtSetArg (args[xtargc], XtNiconName         , (XtArgVal) "Goban"             ); xtargc++;
  4521.    
  4522.   XtSetValues (w_toplevel, args, xtargc);
  4523.  
  4524.   xtargc    = 0;
  4525.   XtSetArg (args[xtargc], XtNtranslations     , (XtArgVal) XtParseTranslationTable (translations_table)); xtargc++;
  4526.   XtSetArg (args[xtargc], XtNpointSize        , (XtArgVal) app_data.point_size ); xtargc++;
  4527.   XtSetArg (args[xtargc], XtNautoRedisplay    , (XtArgVal) False               ); xtargc++;
  4528.  
  4529.   switch (app_data.stipple) {
  4530.   case 1 :
  4531.     XtSetArg (args[xtargc], XtNbackgroundPixmap , 
  4532.           XCreatePixmapFromBitmapData (display, window, (char *) stipple1_bits, 
  4533.                        stipple1_width, stipple1_height,
  4534.                        BlackPixel (display, DefaultScreen (display)),
  4535.                        WhitePixel (display, DefaultScreen (display)),
  4536.                        DefaultDepthOfScreen (XtScreen (w_toplevel))));
  4537.     xtargc++;
  4538.     break;
  4539.   case 2 :
  4540.     XtSetArg (args[xtargc], XtNbackgroundPixmap , 
  4541.           XCreatePixmapFromBitmapData (display, window, (char *) stipple2_bits, 
  4542.                        stipple2_width, stipple2_height,
  4543.                        BlackPixel (display, DefaultScreen (display)),
  4544.                        WhitePixel (display, DefaultScreen (display)),
  4545.                        DefaultDepthOfScreen (XtScreen (w_toplevel))));
  4546.     xtargc++;
  4547.     break;
  4548.   case 3 :
  4549.     XtSetArg (args[xtargc], XtNbackgroundPixmap , 
  4550.           XCreatePixmapFromBitmapData (display, window, (char *) stipple3_bits, 
  4551.                        stipple3_width, stipple3_height,
  4552.                        BlackPixel (display, DefaultScreen (display)),
  4553.                        WhitePixel (display, DefaultScreen (display)),
  4554.                        DefaultDepthOfScreen (XtScreen (w_toplevel))));
  4555.     xtargc++;
  4556.     break;
  4557.   }
  4558.  
  4559.   w_goban   = XtCreateManagedWidget ("goban"      , gobanWidgetClass     , w_toplevel  , args, xtargc);
  4560.  
  4561.   xtargc    = 0;
  4562.   XtSetArg (args[xtargc], XtNiconPixmap       , (XtArgVal) icon_pixmap         ); xtargc++;
  4563.   XtSetArg (args[xtargc], XtNtitle            , (XtArgVal) "XGoban : comment"  ); xtargc++;
  4564.   XtSetArg (args[xtargc], XtNiconName         , (XtArgVal) "Comment"           ); xtargc++;
  4565.  
  4566.   c_toplevel = XtCreatePopupShell ("comment", applicationShellWidgetClass, w_toplevel, args, xtargc);
  4567.  
  4568.   xtargc    = 0;
  4569.   XtSetArg (args[xtargc], XtNwidth            , (XtArgVal) 540                 ); xtargc++;
  4570.   XtSetArg (args[xtargc], XtNheight           , (XtArgVal) 200                 ); xtargc++;
  4571.   XtSetArg (args[xtargc], XtNscrollVertical   , (XtArgVal) XawtextScrollAlways ); xtargc++;
  4572.   XtSetArg (args[xtargc], XtNwrap             , (XtArgVal) XawtextWrapWord     ); xtargc++;
  4573.   XtSetArg (args[xtargc], XtNeditType         , (XtArgVal) XawtextRead         ); xtargc++;
  4574.   XtSetArg (args[xtargc], XtNdisplayCaret     , (XtArgVal) False               ); xtargc++;
  4575.  
  4576.   c_comment = XtCreateManagedWidget ("commentText", asciiTextWidgetClass , c_toplevel   , args, xtargc);
  4577.  
  4578.   makeDialogWindow  (w_toplevel, app_context);
  4579.   makeEventWindow   (w_toplevel, app_context);
  4580.  
  4581.   XtAppAddActions (app_context, actions, XtNumber(actions));
  4582.   XawSimpleMenuAddGlobalActions (app_context); 
  4583.  
  4584.   XtRegisterGrabAction (SelectDiagram, True, (ButtonPressMask | ButtonReleaseMask), GrabModeAsync, GrabModeAsync);
  4585.   XtRealizeWidget (w_toplevel);
  4586.  
  4587.   /*
  4588.    *   Second display
  4589.    */
  4590.  
  4591.   if (current_mode == EditMode) {
  4592.     if (app_data.white_dsp != NULL) {
  4593.       second_display = XtOpenDisplay (app_context, app_data.white_dsp, NULL, ApplicationName, 
  4594.                       options, XtNumber (options), &argc, argv);
  4595.       
  4596.       w_second_toplevel  = XtAppCreateShell (argv[0], ApplicationName, applicationShellWidgetClass, second_display, NULL, 0);
  4597.       second_player      = SG_WhiteStone;
  4598.     }
  4599.     
  4600.     else if (app_data.black_dsp != NULL) {
  4601.       second_display = XtOpenDisplay (app_context, app_data.black_dsp, NULL, ApplicationName,
  4602.                       options, XtNumber (options), &argc, argv);
  4603.       
  4604.       w_second_toplevel  = XtAppCreateShell (argv[0], ApplicationName, applicationShellWidgetClass, second_display, NULL, 0);
  4605.       second_player      = SG_BlackStone;
  4606.     }
  4607.     
  4608.     if (w_second_toplevel != NULL) {
  4609.       
  4610.       window     = RootWindowOfScreen (XtScreen (w_second_toplevel));
  4611.       
  4612.       title      = second_player == SG_BlackStone ? "XGoban : Black" : "XGoban : White"; 
  4613.       icon_title = second_player == SG_BlackStone ? "Black" : "White"; 
  4614.       
  4615.       xtargc    = 0;
  4616.       XtSetArg (args[xtargc], XtNiconPixmap, icon_pixmap ); xtargc++;
  4617.       XtSetArg (args[xtargc], XtNtitle     , title       ); xtargc++;
  4618.       XtSetArg (args[xtargc], XtNiconName  , icon_title  ); xtargc++;
  4619.       
  4620.       XtSetValues (w_second_toplevel, args, xtargc);
  4621.       
  4622.       title      = second_player == SG_BlackStone ? "XGoban : White" : "XGoban : Black"; 
  4623.       icon_title = second_player == SG_BlackStone ? "White" : "Black"; 
  4624.       
  4625.       xtargc    = 0;
  4626.       XtSetArg (args[xtargc], XtNtitle     , title       ); xtargc++;
  4627.       XtSetArg (args[xtargc], XtNiconName  , icon_title  ); xtargc++;
  4628.       
  4629.       XtSetValues (w_toplevel, args, xtargc);
  4630.       
  4631.       xtargc    = 0;
  4632.       XtSetArg (args[xtargc], XtNtranslations     , (XtArgVal) XtParseTranslationTable (translations_table)); xtargc++;
  4633.       XtSetArg (args[xtargc], XtNpointSize        , (XtArgVal) app_data.point_size ); xtargc++;
  4634.       XtSetArg (args[xtargc], XtNautoRedisplay    , (XtArgVal) False               ); xtargc++;
  4635.       
  4636.       w_second_goban   = XtCreateManagedWidget ("goban"      , gobanWidgetClass     , w_second_toplevel, args, xtargc);
  4637.       
  4638.       XtRealizeWidget (w_second_toplevel);
  4639.       
  4640.       current_mode = PlayMode;
  4641.     }
  4642.   }
  4643.  
  4644.   /*
  4645.    *   Black and White options : play a game
  4646.    */
  4647.     
  4648.   if (current_mode == EditMode) {
  4649.     if (app_data.black != NULL) {
  4650.       current_mode = PlayMode;
  4651.       edit         = True;
  4652.       
  4653.       if (strcmp (app_data.black, "wally") == 0)
  4654.     black_player = Wally;
  4655.       else if (strcmp (app_data.black, "gnugo") == 0)
  4656.     black_player = Gnugo;
  4657.     }
  4658.     
  4659.     if (app_data.white != NULL) {
  4660.       current_mode = PlayMode;
  4661.       edit         = True;
  4662.       
  4663.       if (strcmp (app_data.white, "wally") == 0)
  4664.     PopupDialog (w_toplevel, NULL, WallyWhitePlayWarning);
  4665.       else if (strcmp (app_data.white, "gnugo") == 0)
  4666.     white_player = Gnugo;
  4667.     }
  4668.   }
  4669.  
  4670.   /*
  4671.    *    File option 
  4672.    */
  4673.  
  4674.   file_name[0] = '\0';
  4675.  
  4676.   if (file != NULL) {
  4677.     (void) strcpy (file_name, file);
  4678.  
  4679.     if (current_mode != PlayMode)
  4680.       if (LoadFile (NULL, NULL, file) == True) {
  4681.     app_data.handicap = 0;
  4682.     app_data.size     = 19;
  4683.       }
  4684.     
  4685.       else {
  4686.     (void) fprintf (stderr, "XGoban : can't open file : %s\n", file);
  4687.     (void) exit (1);
  4688.       }
  4689.   }
  4690.  
  4691.   /*
  4692.    *   Create first node
  4693.    */
  4694.  
  4695.   if (tree == NULL) {
  4696.     tree         = SG_MakeNode (NULL, SG_Event);
  4697.     current_node = tree;
  4698.  
  4699.     if (current_mode != PlayMode) Edit (True);
  4700.   }
  4701.  
  4702.   if (current_mode == PlayMode) {
  4703.     switch (black_player) {
  4704.     case Gnugo : SG_MakeProperty (tree, SG_PlayerBlack, (long) "gnugo"); break;
  4705.     case Wally : SG_MakeProperty (tree, SG_PlayerBlack, (long) "wally"); break;
  4706.     case Human : 
  4707.       if (app_data.black != NULL) 
  4708.     SG_MakeProperty (tree, SG_PlayerBlack, (long) app_data.black); 
  4709.       break;
  4710.     }
  4711.  
  4712.     switch (white_player) {
  4713.     case Gnugo : SG_MakeProperty (tree, SG_PlayerWhite, (long) "gnugo"); break;
  4714.     case Wally : SG_MakeProperty (tree, SG_PlayerWhite, (long) "wally"); break;
  4715.     case Human : 
  4716.       if (app_data.white != NULL) 
  4717.     SG_MakeProperty (tree, SG_PlayerWhite, (long) app_data.white); 
  4718.       break;
  4719.     }
  4720.   }
  4721.  
  4722.   /*
  4723.    *    Size option 
  4724.    */
  4725.  
  4726.   if (app_data.size > 1 && app_data.size < 19) {
  4727.     if (black_player == Wally && app_data.size != 9 && app_data.size != 13 && app_data.size != 19) {
  4728.       PopupDialog (w_toplevel, NULL, WallyBadSizeWarning);
  4729.       app_data.size = 9;
  4730.     }
  4731.  
  4732.     SG_MakeProperty (current_node, SG_SiZe, (long) app_data.size);
  4733.  
  4734.     modified = True;
  4735.     if (current_mode != PlayMode) Edit (True);
  4736.   }
  4737.  
  4738.   else 
  4739.     app_data.size = 19;
  4740.  
  4741.   board_size = app_data.size;
  4742.  
  4743.   /*
  4744.    *    Handicap option 
  4745.    */
  4746.  
  4747.   current_node->player = SG_BlackStone;
  4748.  
  4749.   if (app_data.handicap > 1) {
  4750.     int            x;
  4751.     int            y;
  4752.     int            h;
  4753.     char          *ptr = stars[app_data.size - 2];
  4754.     unsigned char *setup;
  4755.  
  4756.     if (black_player == Wally && app_data.handicap != 9) {
  4757.       PopupDialog (w_toplevel, NULL, WallyBadHandicapWarning);
  4758.       app_data.handicap = 9;
  4759.     }
  4760.  
  4761.     if (*ptr == '\0') {
  4762.       PopupDialog (w_toplevel, NULL, BadHandicapWarning);
  4763.       app_data.handicap = 0;
  4764.     }
  4765.  
  4766.     else {
  4767.       setup = current_node->setup = (unsigned char *) malloc ((unsigned) 2 * app_data.handicap + 1);
  4768.  
  4769.       for (h = 0; h < app_data.handicap && *ptr != '\0'; h++) {
  4770.     x = *ptr++;
  4771.     y = *ptr++;
  4772.     
  4773.     if (h == 4 && (app_data.handicap == 6 || app_data.handicap == 8)) {
  4774.       x = *ptr++;
  4775.       y = *ptr++;
  4776.     }
  4777.  
  4778.     *setup++ = SG_SETB | (x - 'a' + 1);
  4779.     *setup++ = SG_SETB | (y - 'a' + 1);
  4780.       }
  4781.       
  4782.       if (h != app_data.handicap) {
  4783.     PopupDialog (w_toplevel, NULL, RemainingStonesWarning);
  4784.     app_data.handicap -= h;
  4785.       }
  4786.     
  4787.       *setup++ = SG_EOS;
  4788.       current_node->player = SG_WhiteStone;
  4789.       
  4790.       modified = True;
  4791.       if (current_mode != PlayMode) Edit (True);
  4792.     }
  4793.   }
  4794.  
  4795.   else 
  4796.     app_data.handicap = 0;
  4797.  
  4798.   handicap = app_data.handicap;
  4799.  
  4800.   /*
  4801.    *    Play first node and go... 
  4802.    */
  4803.  
  4804.   GbClearBoard (w_goban);
  4805.  
  4806.   switch (current_mode) {
  4807.   case PlayMode :
  4808.     startGame (app_context);
  4809.     break;
  4810.  
  4811.   case EditMode :
  4812.     XtPopup (c_toplevel, XtGrabNone);
  4813.     break;
  4814.  
  4815.   case MailMode :
  4816.     XtPopup (c_toplevel, XtGrabNone);
  4817.  
  4818.     while (current_node->down != NULL) {
  4819.       Play            (current_node);
  4820.       ShowProperty    (current_node);
  4821.       HideTmpProperty (current_node);
  4822.  
  4823.       current_node = current_node->down;
  4824.     }
  4825.  
  4826.     mail_node = current_node;
  4827.     break;
  4828.  
  4829.   default :
  4830.     break;
  4831.   }
  4832.  
  4833.   Play           (current_node);
  4834.   ShowProperty   (current_node);
  4835.   RedisplayBoard ();
  4836.  
  4837.   XtAppMainLoop    (app_context);
  4838.  
  4839.   /* NOTREACHED */
  4840. }
  4841.  
  4842. /*******************************************************************************************************
  4843.  */
  4844. SHAR_EOF
  4845. fi # end of overwriting check
  4846. if test -f 'action.c'
  4847. then
  4848.     echo shar: will not over-write existing file "'action.c'"
  4849. else
  4850. cat << \SHAR_EOF > 'action.c'
  4851. /****************************************************************************************************************
  4852.  *
  4853.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  4854.  *
  4855.  *  This program is distributed in the hope that it will be useful.
  4856.  *  Use and copying of this software and preparation of derivative works
  4857.  *  based upon this software are permitted, so long as the following
  4858.  *  conditions are met:
  4859.  *       o credit to the authors is acknowledged following current
  4860.  *         academic behaviour
  4861.  *       o no fees or compensation are charged for use, copies, or
  4862.  *         access to this software
  4863.  *       o this copyright notice is included intact.
  4864.  *  This software is made available AS IS, and no warranty is made about 
  4865.  *  the software or its performance. 
  4866.  * 
  4867.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  4868.  *  Send them to    dumesnil@etca.fr   or to:
  4869.  *       
  4870.  *       Antoine de Maricourt
  4871.  *       ETCA CREA-SP
  4872.  *       16 bis, avenue Prieur de la Cote d'Or
  4873.  *       94114 Arcueil Cedex
  4874.  *       France
  4875.  */
  4876.  
  4877. #include <X11/Intrinsic.h>
  4878. #include <X11/Shell.h>
  4879. #include <X11/StringDefs.h>
  4880.  
  4881. #include <X11/Xaw/SimpleMenu.h>
  4882. #include <X11/Xaw/SmeBSB.h>
  4883. #include <X11/cursorfont.h>
  4884.  
  4885. #include "xgoban.h"
  4886.  
  4887. /*******************************************************************************************************
  4888.  */
  4889.  
  4890. /* ARGSUSED */
  4891.  
  4892. void NextComment (w, event, params, num_params)
  4893. Widget    w;
  4894. XEvent   *event;
  4895. String   *params;
  4896. Cardinal *num_params;
  4897. {
  4898.   Arg     arg;
  4899.   Boolean no_beep = False;
  4900.  
  4901.   if (current_node != NULL)
  4902.     switch (current_mode) {
  4903.     case EditMode :
  4904.     case MailMode :
  4905.       
  4906.       if (current_node->down != NULL) {
  4907.     XtSetArg (arg, XtNautoRedisplay, (XtArgVal) True ); XtSetValues (w_goban, &arg, 1);
  4908.     
  4909.     do {
  4910.       HideTmpProperty (current_node);
  4911.       
  4912.       current_node = current_node->down;
  4913.       
  4914.       Play            (current_node);
  4915.       ShowProperty    (current_node);
  4916.       
  4917.       if (SG_GetProperty (current_node, SG_Comment) != NULL) {
  4918.         no_beep = True;
  4919.         break;
  4920.       }
  4921.       
  4922.     } while (current_node->down != NULL && current_node->right == NULL);
  4923.     
  4924.     XtSetArg (arg, XtNautoRedisplay, (XtArgVal) False); XtSetValues (w_goban, &arg, 1);
  4925.       }
  4926.       
  4927.       if (beep >= -100 && no_beep == False)
  4928.     XBell (XtDisplay (w), beep);
  4929.       break;
  4930.       
  4931.     default : break;
  4932.     }
  4933. }
  4934.  
  4935. /*******************************************************************************************************
  4936.  */
  4937.  
  4938. /* ARGSUSED */
  4939.  
  4940. void PreviousComment (w, event, params, num_params)
  4941. Widget    w;
  4942. XEvent   *event;
  4943. String   *params;
  4944. Cardinal *num_params;
  4945. {
  4946.   SG_NodePtr tmp;
  4947.   Arg        arg;
  4948.   Boolean    no_beep = False;
  4949.  
  4950.   if (current_node != NULL)
  4951.     switch (current_mode) {
  4952.     case EditMode :
  4953.     case MailMode :
  4954.       
  4955.       XtSetArg (arg, XtNautoRedisplay, (XtArgVal) True ); XtSetValues (w_goban, &arg, 1);
  4956.       
  4957.       do {
  4958.     tmp = current_node;
  4959.     while (tmp->left != NULL) tmp = tmp->left;
  4960.     
  4961.     if (tmp->up != NULL) {
  4962.       Unplay          (current_node);
  4963.       HideProperty    (current_node);
  4964.       
  4965.       current_node = tmp->up;
  4966.       
  4967.       ShowTmpProperty (current_node);
  4968.     }
  4969.     
  4970.     if (SG_GetProperty (current_node, SG_Comment) != NULL) {
  4971.       no_beep = True;
  4972.       break;
  4973.     }
  4974.     
  4975.       } while (tmp->up != NULL && current_node->left == NULL && current_node->right == NULL); 
  4976.       
  4977.       XtSetArg (arg, XtNautoRedisplay, (XtArgVal) False); XtSetValues (w_goban, &arg, 1);
  4978.       
  4979.       if (beep >= -100 && no_beep == False)
  4980.     XBell (XtDisplay (w), beep);
  4981.     }
  4982. }
  4983.  
  4984. /*******************************************************************************************************
  4985.  */
  4986.  
  4987. /* ARGSUSED */
  4988.  
  4989. void NextVariationBranch (w, event, params, num_params)
  4990. Widget    w;
  4991. XEvent   *event;
  4992. String   *params;
  4993. Cardinal *num_params;
  4994. {
  4995.   Arg arg;
  4996.  
  4997.   if (current_node != NULL)
  4998.     switch (current_mode) {
  4999.     case EditMode :
  5000.     case MailMode :
  5001.       
  5002.       if (current_node->down != NULL) {
  5003.     XtSetArg (arg, XtNautoRedisplay, (XtArgVal) True ); XtSetValues (w_goban, &arg, 1);
  5004.     
  5005.     HideTmpProperty (current_node);
  5006.     
  5007.     current_node = current_node->down;
  5008.     
  5009.     Play            (current_node);
  5010.     ShowProperty    (current_node);
  5011.     
  5012.     while (current_node->down != NULL && current_node->right == NULL) {
  5013.       HideTmpProperty  (current_node);
  5014.       
  5015.       current_node = current_node->down;
  5016.       
  5017.       Play             (current_node);
  5018.       ShowProperty     (current_node);
  5019.     }
  5020.     
  5021.     XtSetArg (arg, XtNautoRedisplay, (XtArgVal) False); XtSetValues (w_goban, &arg, 1);
  5022.       }
  5023.       
  5024.       else if (beep >= -100)
  5025.     XBell (XtDisplay (w), beep);
  5026.     }
  5027. }    
  5028.  
  5029. /*******************************************************************************************************
  5030.  */
  5031.  
  5032. /* ARGSUSED */
  5033.  
  5034. void PreviousVariationBranch (w, event, params, num_params)
  5035. Widget    w;
  5036. XEvent   *event;
  5037. String   *params;
  5038. Cardinal *num_params;
  5039. {
  5040.   SG_NodePtr tmp;
  5041.   Boolean    no_beep = False;
  5042.   Arg        arg;
  5043.  
  5044.   if (current_node != NULL)
  5045.     switch (current_mode) {
  5046.     case EditMode :
  5047.     case MailMode :
  5048.       
  5049.       XtSetArg (arg, XtNautoRedisplay, (XtArgVal) True ); XtSetValues (w_goban, &arg, 1);
  5050.       
  5051.       do {
  5052.     tmp = current_node;
  5053.     while (tmp->left != NULL) tmp = tmp->left;
  5054.     
  5055.     if (tmp->up != NULL) {
  5056.       Unplay          (current_node);
  5057.       HideProperty    (current_node);
  5058.       
  5059.       current_node = tmp->up;
  5060.       no_beep      = True;
  5061.       
  5062.       ShowTmpProperty (current_node);
  5063.     }
  5064.       } while (tmp->up != NULL && current_node->left == NULL && current_node->right == NULL); 
  5065.       
  5066.       XtSetArg (arg, XtNautoRedisplay, (XtArgVal) False); XtSetValues (w_goban, &arg, 1);
  5067.       
  5068.       if (beep >= -100 && no_beep == False)
  5069.     XBell (XtDisplay (w), beep);
  5070.     }  
  5071. }
  5072.  
  5073. /*******************************************************************************************************
  5074.  */
  5075.  
  5076. /* ARGSUSED */
  5077.  
  5078. void PreviousMove (w, event, params, num_params)
  5079. Widget    w;
  5080. XEvent   *event;
  5081. String   *params;
  5082. Cardinal *num_params;
  5083. {
  5084.   SG_NodePtr tmp = current_node;
  5085.  
  5086.   if (current_node != NULL)
  5087.     switch (current_mode) {
  5088.     case EditMode :
  5089.     case MailMode :
  5090.       
  5091.       while (tmp->left != NULL)
  5092.     tmp = tmp->left;
  5093.       
  5094.       if (tmp->up != NULL) {
  5095.     Unplay           (current_node);
  5096.     HideProperty     (current_node);
  5097.     
  5098.     current_node = tmp->up;
  5099.     
  5100.     ShowTmpProperty  (current_node);
  5101.     RedisplayBoard   ();
  5102.  
  5103.     return;
  5104.       }
  5105.  
  5106.       if (beep >= -100)
  5107.     XBell (XtDisplay (w), beep);
  5108.     }
  5109. }
  5110.  
  5111. /*******************************************************************************************************
  5112.  */
  5113.  
  5114. /* ARGSUSED */
  5115.  
  5116. void Exit (w, event, params, num_params)
  5117. Widget  w;
  5118. XEvent *event;
  5119. String   *params;
  5120. Cardinal *num_params;
  5121. {
  5122.   HideTmpProperty (current_node);
  5123.   ShowTmpProperty (current_node);
  5124.  
  5125.   switch (current_mode) {
  5126.   case EditMode :
  5127.     PopupDialog (w, event, modified == True ? SaveBeforeQuitDialog : ReallyQuitDialog);
  5128.     break;
  5129.   case PlayMode :
  5130.     PopupDialog (w, event, StopGameBeforeQuitDialog);
  5131.     break;
  5132.   case MailMode :
  5133.     PopupDialog (w, event, mail_node->down == NULL ? MailNoMoveDialog : MailConfirmMoveDialog);
  5134.     break;
  5135.   }
  5136. }
  5137.  
  5138. /*******************************************************************************************************
  5139.  */
  5140.  
  5141.  
  5142. /* ARGSUSED */
  5143.  
  5144. void destroyMenu (w, client_data, call_data)
  5145. Widget    w;
  5146. XtPointer client_data;
  5147. XtPointer call_data;
  5148. {
  5149.   if (w_menu != NULL) {
  5150.     XtDestroyWidget (w_menu);
  5151.     w_menu = NULL;
  5152.   }
  5153. }
  5154.  
  5155. /* ARGSUSED */
  5156.  
  5157. void menuAction (w, client_data, call_data)
  5158. Widget    w;
  5159. XtPointer client_data;
  5160. XtPointer call_data;
  5161. {
  5162.   SG_NodePtr tmp  = current_node;
  5163.   char       mark = (int) client_data - 'A';
  5164.  
  5165.   while (tmp->left != NULL)
  5166.     tmp = tmp->left;
  5167.  
  5168.   while (mark-- != 0)
  5169.     tmp = tmp->right;
  5170.  
  5171.           
  5172.   Unplay           (current_node);
  5173.   HideProperty     (current_node);
  5174.           
  5175.   current_node = tmp;
  5176.           
  5177.   Play           (current_node);
  5178.   ShowProperty   (current_node);
  5179.   RedisplayBoard ();
  5180. }
  5181.  
  5182. /* ARGSUSED */
  5183.  
  5184. void SelectDiagram (w, event, params, num_params)
  5185. Widget    w;
  5186. XEvent   *event;
  5187. String   *params;
  5188. Cardinal *num_params;
  5189. {
  5190.   Widget         entry;
  5191.   Arg            args[4];
  5192.   int            xtargc;
  5193.   SG_NodePtr     tmp   = current_node;
  5194.   SG_PropertyPtr property;
  5195.   String         nparams[1];
  5196.   char           buffer[256];
  5197.   char           mark  = 'A';
  5198.     
  5199.   if (event->type != ButtonPress) {
  5200.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5201.           "XGoban - selectDiagram : This action routine requires a button press event.");
  5202.     return;
  5203.   }
  5204.  
  5205.   if (*num_params != 0)
  5206.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5207.           "XGoban - selectDiagram : This action routine requires no argument.");
  5208.  
  5209.   if (current_node != NULL)
  5210.     switch (current_mode) {
  5211.     case EditMode :
  5212.     case MailMode :
  5213.  
  5214.       while (tmp->left != NULL)
  5215.     tmp = tmp->left;
  5216.  
  5217.       if (tmp->right == NULL) {
  5218.     if (beep >= -100)
  5219.       XBell (XtDisplay (w), beep);
  5220.     return;
  5221.       }
  5222.  
  5223.       if (w_menu == NULL) {
  5224.  
  5225.     xtargc = 0;
  5226.     XtSetArg (args[xtargc], XtNlabel        , " Variations "); xtargc++;
  5227.     
  5228.     w_menu = XtCreatePopupShell ("variations", simpleMenuWidgetClass, w_goban, args, xtargc);
  5229.     
  5230.     entry = XtNameToWidget (w_menu, "menuLabel");
  5231.     
  5232.     xtargc = 0;
  5233.     XtSetArg (args[xtargc], XtNheight        , 32           ); xtargc++;
  5234.     XtSetValues (entry, args, xtargc);
  5235.     
  5236.     while (tmp != NULL) {
  5237.       property = SG_GetProperty (tmp, SG_nodeName);
  5238.  
  5239.       if (property != NULL && property->data.pvalue != NULL)
  5240.         sprintf (buffer, "%c : %s", mark, property->data.pvalue);
  5241.  
  5242.       else
  5243.         switch (tmp->type) {
  5244.         case SG_EventType :
  5245.           sprintf (buffer, "%c : (Event)", mark);
  5246.           break;
  5247.  
  5248.         case SG_DiagramType :
  5249.           sprintf (buffer, "%c : (Diagram)", 
  5250.                mark);
  5251.           break;
  5252.           
  5253.         case SG_MoveType :
  5254.           if (tmp->x != 0 && tmp->y != 0)
  5255.         sprintf (buffer, "%c : %s %c%d", 
  5256.              mark,
  5257.              tmp->color == SG_BlackStone ? "Black" : "White",
  5258.              tmp->x + 'A' + (tmp->x < 9 ? -1 : 0),
  5259.              tmp->y);
  5260.           else
  5261.         sprintf (buffer, "%c : %s passes", 
  5262.              mark,
  5263.              tmp->color == SG_BlackStone ? "Black" : "White");
  5264.           break;
  5265.         }
  5266.       
  5267.       xtargc = 0;
  5268.       XtSetArg (args[xtargc], XtNleftMargin, 8); xtargc++;
  5269.       
  5270.       entry = XtCreateManagedWidget (buffer, smeBSBObjectClass, w_menu, args, xtargc);
  5271.       
  5272.       XtAddCallback (entry, XtNcallback, menuAction, (XtPointer) mark);
  5273.       
  5274.       if (tmp == current_node) {
  5275.         XtSetArg (args[0], XtNpopupOnEntry, entry);
  5276.         XtSetValues (w_menu, args, 1);
  5277.       }
  5278.  
  5279.       mark++;
  5280.       tmp = tmp->right;
  5281.     }
  5282.       }
  5283.  
  5284.       XtAddCallback (w_menu, XtNpopdownCallback, destroyMenu, (XtPointer) NULL);
  5285.  
  5286.       nparams[0] = "variations";
  5287.  
  5288.       XtCallActionProc (w_goban, "XawPositionSimpleMenu", event, nparams, 1); 
  5289.       XtCallActionProc (w_goban, "MenuPopup"            , event, nparams, 1);
  5290.  
  5291.       return;
  5292.     }
  5293. }
  5294.  
  5295. /*******************************************************************************************************
  5296.  */
  5297.  
  5298.  
  5299. /* ARGSUSED */
  5300.  
  5301. void SelectVariation (w, event, params, num_params)
  5302. Widget    w;
  5303. XEvent   *event;
  5304. String   *params;
  5305. Cardinal *num_params;
  5306. {
  5307.   char       ch;
  5308.   SG_NodePtr tmp    = current_node;
  5309.  
  5310.   if (*num_params != 1) {
  5311.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5312.           "XGoban - selectVariation : This action routine requires one argument.");
  5313.     return;
  5314.   }
  5315.  
  5316.   ch = params[0][0];
  5317.  
  5318.   if (ch < 'a' && ch > 'z' && ch < 'A' && ch > 'Z') {
  5319.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5320.           "XGoban - selectVariation : argument should range between 'A' and 'Z'.");
  5321.     return;
  5322.   }
  5323.  
  5324.   if (current_node != NULL) 
  5325.     switch (current_mode) {
  5326.     case EditMode :
  5327.     case MailMode :
  5328.  
  5329.       ch  = tolower (ch) - 'a';
  5330.       
  5331.       while (tmp->left != NULL) 
  5332.     tmp = tmp->left;
  5333.       
  5334.       if (tmp->right != NULL) {
  5335.     while (tmp != NULL && ch != 0) {
  5336.       ch--;
  5337.       tmp = tmp->right;
  5338.     }
  5339.  
  5340.     if (ch == 0 && tmp != NULL) {
  5341.       if (tmp != current_node) {
  5342.         Unplay       (current_node);
  5343.         HideProperty (current_node);
  5344.         
  5345.         current_node = tmp; 
  5346.         
  5347.         Play           (current_node);
  5348.         ShowProperty   (current_node);
  5349.         RedisplayBoard ();
  5350.       }
  5351.  
  5352.       return;
  5353.     }
  5354.       }
  5355.       
  5356.       if (beep >= -100)
  5357.     XBell (XtDisplay (w), beep);
  5358.     }
  5359. }
  5360.  
  5361. /*******************************************************************************************************
  5362.  */
  5363.  
  5364. /* ARGSUSED */
  5365.  
  5366. void Dialog (w, event, params, num_params)
  5367. Widget    w;
  5368. XEvent   *event;
  5369. String   *params;
  5370. Cardinal *num_params;
  5371. {
  5372.   if (*num_params != 1) {
  5373.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5374.           "XGoban - dialog : This action routine requires one argument.");
  5375.     return;
  5376.   }
  5377.  
  5378.   switch (current_mode) {
  5379.   case EditMode :
  5380.     switch (params[0][0]) {
  5381.     case 'E' : case 'e' : PopupDialog (w, event, EditDialog    ); break;
  5382.     case 'L' : case 'l' : PopupDialog (w, event, modified == True ? SaveBeforeLoadDialog : LoadDialog); break;
  5383.     case 'N' : case 'n' : PopupDialog (w, event, NodeNameDialog); break;
  5384.     case 'S' : case 's' : PopupDialog (w, event, SaveAsDialog  ); break;
  5385.     case 'H' : case 'h' : PopupDialog (w, event, HelpDialog    ); break;
  5386.     default :
  5387.       XtAppWarning (XtWidgetToApplicationContext (w), 
  5388.             "XGoban - dialog : Argument should be Save, Load, Edit, Help or NodeName.");
  5389.     }
  5390.     break;
  5391.  
  5392.   case PlayMode :
  5393.     switch (params[0][0]) {
  5394.     case 'E' : case 'e' : PopupDialog (w, event, StopGameDialog); break;
  5395.     case 'S' : case 's' : PopupDialog (w, event, SaveAsDialog  ); break;
  5396.     case 'H' : case 'h' : PopupDialog (w, event, HelpDialog    ); break;
  5397.     case 'N' : case 'n' : 
  5398.     case 'L' : case 'l' :
  5399.       if (beep >= -100)
  5400.     XBell (XtDisplay (w), beep); break;
  5401.     default :
  5402.       XtAppWarning (XtWidgetToApplicationContext (w), 
  5403.             "XGoban - dialog : Argument should be Save, Load, Edit, Help or NodeName.");
  5404.     }
  5405.       
  5406.   case MailMode :
  5407.     switch (params[0][0]) {
  5408.     case 'N' : case 'n' : PopupDialog (w, event, NodeNameDialog); break;
  5409.     case 'S' : case 's' : PopupDialog (w, event, SaveAsDialog  ); break;
  5410.     case 'H' : case 'h' : PopupDialog (w, event, HelpDialog    ); break;
  5411.     case 'E' : case 'e' :
  5412.     case 'L' : case 'l' :
  5413.       if (beep >= -100)
  5414.     XBell (XtDisplay (w), beep); break;
  5415.  
  5416.     default :
  5417.       XtAppWarning (XtWidgetToApplicationContext (w), 
  5418.             "XGoban - dialog : Argument should be Save, Load, Edit, Help or NodeName.");
  5419.     }
  5420.     break;
  5421.   }
  5422. }
  5423.  
  5424. /*******************************************************************************************************
  5425.  */
  5426.  
  5427. /* ARGSUSED */
  5428.  
  5429. void NextMove (w, event, params, num_params)
  5430. Widget    w;
  5431. XEvent   *event;
  5432. String   *params;
  5433. Cardinal *num_params;
  5434. {
  5435.   Position   x;
  5436.   Position   y;
  5437.   SG_NodePtr tmp    = current_node;
  5438.  
  5439.   if (current_node != NULL)
  5440.     switch (current_mode) {
  5441.     case EditMode :
  5442.     case MailMode :
  5443.       
  5444.       if (event->type == ButtonPress) {
  5445.     
  5446.     if (current_node->type == SG_MoveType) {
  5447.       while (tmp->left != NULL)
  5448.         tmp = tmp->left;
  5449.       
  5450.       if (tmp->right != NULL) {
  5451.         
  5452.         x = (Position) ((XButtonPressedEvent *) event)->x;
  5453.         y = (Position) ((XButtonPressedEvent *) event)->y;
  5454.         
  5455.         if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE) {
  5456.  
  5457.           while (tmp != NULL) {
  5458.         if (tmp->type == SG_MoveType && tmp->color == current_node->color &&
  5459.             (Position) tmp->x == x && (Position) tmp->y == y) {
  5460.             
  5461.           Unplay           (current_node);
  5462.           HideProperty     (current_node);
  5463.             
  5464.           current_node = tmp; 
  5465.             
  5466.           Play           (current_node);
  5467.           ShowProperty   (current_node);
  5468.           RedisplayBoard ();
  5469.           
  5470.           return;
  5471.         }
  5472.  
  5473.         tmp = tmp->right;
  5474.           }
  5475.         }
  5476.       }
  5477.     }
  5478.       }
  5479.       
  5480.       if (current_node->down != NULL) {
  5481.     HideTmpProperty (current_node);
  5482.     
  5483.     current_node = current_node->down;
  5484.     
  5485.     Play           (current_node);
  5486.     ShowProperty   (current_node);
  5487.     RedisplayBoard ();
  5488.       }
  5489.       
  5490.       else if (beep >= -100)
  5491.     XBell (XtDisplay (w), beep);
  5492.     }
  5493. }
  5494.  
  5495. /*******************************************************************************************************
  5496.  */
  5497.  
  5498. /* ARGSUSED */
  5499.  
  5500. void MakeVariationDiagram (w, event, params, num_params)
  5501. Widget    w;
  5502. XEvent   *event;
  5503. String   *params;
  5504. Cardinal *num_params;
  5505. {
  5506.   SG_NodePtr  node;
  5507.  
  5508.   if (*num_params != 0)
  5509.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5510.           "XGoban - makeVariationDiagram : This action routine requires no argument.");
  5511.  
  5512.   if (current_node != NULL)
  5513.     switch (current_mode) {
  5514.     case EditMode :
  5515.     case MailMode :
  5516.       if (edit == False) { PopupDialog (w, event, EditDialog); return; }
  5517.  
  5518.       node = SG_MakeNode (current_node, current_node->type == SG_EventType ? SG_Event : SG_VariationDiagram);
  5519.  
  5520.       if (node == NULL) {
  5521.     PopupDialog (w, event, MemoryErrorDialog);
  5522.     return;
  5523.       }
  5524.      
  5525.       node->player = current_node->player;
  5526.       modified     = True;
  5527.       
  5528.       Unplay           (current_node);
  5529.       HideProperty     (current_node);
  5530.       
  5531.       current_node = node;
  5532.       current_mode = DiagramMode;
  5533.  
  5534.       StartDiagram ();
  5535.  
  5536.       Play           (current_node);
  5537.       ShowProperty   (current_node);
  5538.       RedisplayBoard ();
  5539.     }
  5540. }
  5541.  
  5542. /*******************************************************************************************************
  5543.  */
  5544.  
  5545. /* ARGSUSED */
  5546.  
  5547. void Add (w, event, params, num_params)
  5548. Widget    w;
  5549. XEvent   *event;
  5550. String   *params;
  5551. Cardinal *num_params;
  5552. {
  5553.   Position      x;
  5554.   Position      y;
  5555.  
  5556.   if (event->type != ButtonPress) {
  5557.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5558.           "XGoban - add : This action routine requires a ButtonPress event.");
  5559.     return;
  5560.   }
  5561.  
  5562.   if (*num_params != 1) {
  5563.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5564.           "XGoban - add : This action routine requires one argument.");
  5565.     return;
  5566.   }
  5567.  
  5568.   if (current_node != NULL)
  5569.     switch (current_mode) {
  5570.     case DiagramMode :
  5571.       
  5572.       x = (Position) ((XButtonPressedEvent *) event)->x;
  5573.       y = (Position) ((XButtonPressedEvent *) event)->y;
  5574.       
  5575.       if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE ) {
  5576.     
  5577.     switch (params[0][0]) {
  5578.     case 'B' : case 'b' : AddStone (x, y, SG_BlackStone); GbSetPoint (w_goban, x, y, GbBlackStone); break;
  5579.     case 'W' : case 'w' : AddStone (x, y, SG_WhiteStone); GbSetPoint (w_goban, x, y, GbWhiteStone); break;
  5580.     case 'E' : case 'e' : AddStone (x, y, SG_EmptyPoint); GbSetPoint (w_goban, x, y, GbEmptyPoint); break;
  5581.     default :
  5582.       XtAppWarning (XtWidgetToApplicationContext (w), 
  5583.             "XGoban - add : Argument should be Black, White or Empty.");
  5584.       return;
  5585.     }
  5586.     
  5587.     modified = True;
  5588.     RedisplayBoard ();
  5589.       }
  5590.       
  5591.       else if (beep >= -100)
  5592.     XBell (XtDisplay (w), beep);
  5593.     }
  5594. }
  5595.  
  5596. /*******************************************************************************************************
  5597.  */
  5598.  
  5599. /* ARGSUSED */
  5600.  
  5601. void SetPlayer (w, event, params, num_params)
  5602. Widget    w;
  5603. XEvent   *event;
  5604. String   *params;
  5605. Cardinal *num_params;
  5606. {
  5607.   int player;
  5608.  
  5609.   if (*num_params != 1) {
  5610.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5611.           "XGoban - player : This action routine requires one argument.");
  5612.     return;
  5613.   }
  5614.  
  5615.   if (current_node != NULL)
  5616.     switch (current_mode) {
  5617.     case EditMode :
  5618.     case MailMode :
  5619.       if (edit == False) { PopupDialog (w, event, EditDialog); return; }
  5620.  
  5621.       switch (params[0][0]) {
  5622.       case 'B' : case 'b' : player = SG_BlackStone; break;
  5623.       case 'W' : case 'w' : player = SG_WhiteStone; break;
  5624.       default  :
  5625.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5626.               "XGoban - player : Argument should be Black or White.");
  5627.     return;
  5628.       }
  5629.       
  5630.       if (strict == True) {
  5631.     if (current_node->type == SG_MoveType) {
  5632.       PopupDialog (w, event, PlayerNodeErrorWarning);
  5633.       return;
  5634.     }
  5635.     
  5636.     else if (current_node->down != NULL) {
  5637.       PopupDialog (w, event, PlayerMoveErrorWarning);
  5638.       return;
  5639.     }
  5640.       }
  5641.       
  5642.       HideProperty     (current_node);
  5643.       
  5644.       current_node->player = player;
  5645.       modified             = True;
  5646.       
  5647.       ShowProperty   (current_node);
  5648.       RedisplayBoard ();
  5649.     }
  5650. }
  5651.  
  5652. /*******************************************************************************************************
  5653.  */
  5654.  
  5655. /* ARGSUSED */
  5656.  
  5657. void Letter (w, event, params, num_params)
  5658. Widget    w;
  5659. XEvent   *event;
  5660. String   *params;
  5661. Cardinal *num_params;
  5662. {
  5663.   unsigned char  letter[3];
  5664.   Position       x;
  5665.   Position       y;
  5666.   
  5667.   if (event->type != ButtonPress) {
  5668.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5669.           "XGoban - letter : This action routine requires a ButtonPress event.");
  5670.     return;
  5671.   }
  5672.  
  5673.   if (current_node != NULL)
  5674.     switch (current_mode) {
  5675.     case EditMode :
  5676.     case MailMode :
  5677.       if (edit == False) { PopupDialog (w, event, EditDialog); return; }
  5678.  
  5679.       x = (Position) ((XButtonPressedEvent *) event)->x;
  5680.       y = (Position) ((XButtonPressedEvent *) event)->y;
  5681.  
  5682.       if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE) {
  5683.     
  5684.     letter[0] = x;
  5685.     letter[1] = y;
  5686.     letter[2] = SG_EOS;
  5687.     
  5688.     HideTmpProperty  (current_node);
  5689.     SG_MakeProperty  (current_node, SG_Letters, letter);
  5690.     ShowTmpProperty  (current_node);
  5691.     RedisplayBoard   ();
  5692.     
  5693.     modified = True;
  5694.       }
  5695.       
  5696.       else if (beep >= -100)
  5697.     XBell (XtDisplay (w), beep);
  5698.     }
  5699. }
  5700.  
  5701. /*******************************************************************************************************
  5702.  */
  5703.  
  5704. /* ARGSUSED */
  5705.  
  5706. void Mark (w, event, params, num_params)
  5707. Widget    w;
  5708. XEvent   *event;
  5709. String   *params;
  5710. Cardinal *num_params;
  5711. {
  5712.   unsigned char  mark[3];
  5713.   Position       x;
  5714.   Position       y;
  5715.   
  5716.   if (event->type != ButtonPress) {
  5717.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5718.           "XGoban - mark : This action routine requires a ButtonPress event.");
  5719.     return;
  5720.   }
  5721.  
  5722.   if (current_node != NULL)
  5723.     switch (current_mode) {
  5724.     case EditMode :
  5725.     case MailMode :
  5726.       if (edit == False) { PopupDialog (w, event, EditDialog); return; }
  5727.       
  5728.       x = (Position) ((XButtonPressedEvent *) event)->x;
  5729.       y = (Position) ((XButtonPressedEvent *) event)->y;
  5730.       
  5731.       if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE) {
  5732.     
  5733.     mark[0] = x;
  5734.     mark[1] = y;
  5735.     mark[2] = SG_EOS;
  5736.     
  5737.     HideTmpProperty  (current_node);
  5738.     SG_MakeProperty  (current_node, SG_Marked, mark);
  5739.     ShowTmpProperty  (current_node);
  5740.     RedisplayBoard   ();
  5741.     
  5742.     modified = True;
  5743.       }
  5744.       
  5745.       else if (beep >= -100)
  5746.     XBell (XtDisplay (w), beep);
  5747.     }
  5748. }
  5749.  
  5750. /*******************************************************************************************************
  5751.  */
  5752.  
  5753. /* ARGSUSED */
  5754.  
  5755. void DeleteMark (w, event, params, num_params)
  5756. Widget    w;
  5757. XEvent   *event;
  5758. String   *params;
  5759. Cardinal *num_params;
  5760. {
  5761.   SG_PropertyPtr  property;
  5762.   unsigned char  *ptr;
  5763.   Position        x;
  5764.   Position        y;
  5765.   
  5766.   if (event->type != ButtonPress) {
  5767.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5768.           "XGoban - deleteMark : This action routine requires a ButtonPress event.");
  5769.     return;
  5770.   }
  5771.  
  5772.   if (current_node != NULL)
  5773.     switch (current_mode) {
  5774.     case EditMode :
  5775.     case MailMode :
  5776.       if (edit == False) { PopupDialog (w, event, EditDialog); return; }
  5777.       
  5778.       x = (Position) ((XButtonPressedEvent *) event)->x;
  5779.       y = (Position) ((XButtonPressedEvent *) event)->y;
  5780.       
  5781.       if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE) {
  5782.     
  5783.     HideTmpProperty (current_node);
  5784.     
  5785.     property = SG_GetProperty (current_node, SG_Letters);
  5786.     
  5787.     if (property != NULL && (ptr = property->data.pvalue) != NULL) {
  5788.       
  5789.       while (*ptr != SG_EOS) {
  5790.         if ((*ptr & 0x3f) == x && (*(ptr + 1) & 0x3f) == y) {
  5791.           *ptr     = *(ptr + 1) = 0;
  5792.           modified = True;
  5793.         }
  5794.         ptr += 2;
  5795.       }
  5796.     }
  5797.     
  5798.     property = SG_GetProperty (current_node, SG_Marked);
  5799.     
  5800.     if (property != NULL && (ptr = property->data.pvalue) != NULL) {
  5801.       
  5802.       while (*ptr != SG_EOS) {
  5803.         if ((*ptr & 0x3f) == x && (*(ptr + 1) & 0x3f) == y) {
  5804.           *ptr     = *(ptr + 1) = 0;
  5805.           modified = True;
  5806.         }
  5807.         ptr += 2;
  5808.       }
  5809.     }
  5810.     
  5811.     ShowTmpProperty  (current_node);
  5812.     RedisplayBoard   ();
  5813.       }
  5814.       
  5815.       else if (beep >= -100)
  5816.     XBell (XtDisplay (w), beep);
  5817.     }
  5818. }
  5819.  
  5820. /*******************************************************************************************************
  5821.  */
  5822.  
  5823. Boolean delete_confirm = False;
  5824.  
  5825. /* ARGSUSED */
  5826.  
  5827. void DeleteMove (w, event, params, num_params)
  5828. Widget    w;
  5829. XEvent   *event;
  5830. String   *params;
  5831. Cardinal *num_params;
  5832. {
  5833.   SG_NodePtr node   = current_node;
  5834.   Boolean    replay = False;
  5835.  
  5836.   if (current_node != NULL)
  5837.     switch (current_mode) {
  5838.     case EditMode :
  5839.     case MailMode :
  5840.       if (edit           == False) { PopupDialog (w, event, EditDialog        ); return; }
  5841.       if (delete_confirm == False) { PopupDialog (w, event, ReallyDeleteDialog); return; }
  5842.       
  5843.       delete_confirm = False;
  5844.       
  5845.       Unplay        (node);
  5846.       HideProperty  (node);
  5847.       
  5848.       if (node->left != NULL)
  5849.     { current_node = node->left ; replay = True; }
  5850.       else if (node->right != NULL)
  5851.     { current_node = node->right; replay = True; }
  5852.       else if (node->up != NULL) 
  5853.     current_node = node->up;
  5854.       else
  5855.     tree = current_node = NULL;
  5856.       
  5857.       SG_RemoveNode (node);
  5858.       SG_FreeNode   (node);
  5859.       
  5860.       if (tree == NULL)
  5861.     { current_node = tree = SG_MakeNode ((SG_NodePtr) NULL, SG_Event); replay = True; }
  5862.       
  5863.       if (replay == True) {
  5864.     Play             (current_node);
  5865.     ShowProperty     (current_node);
  5866.       }
  5867.       
  5868.       else 
  5869.     ShowTmpProperty (current_node);
  5870.       
  5871.       RedisplayBoard ();
  5872.       
  5873.       modified = True;
  5874.  
  5875.       if (current_mode == MailMode) {
  5876.     Edit (False);
  5877.     edit = True;
  5878.       }
  5879.     }
  5880. }
  5881.  
  5882. /*******************************************************************************************************
  5883.  */
  5884.  
  5885. /* ARGSUSED */
  5886.  
  5887. void Pass (w, event, params, num_params)
  5888. Widget    w;
  5889. XEvent   *event;
  5890. String   *params;
  5891. Cardinal *num_params;
  5892. {
  5893.   SG_NodePtr node;
  5894.  
  5895.   if (current_node != NULL) {
  5896.     switch (current_mode) {
  5897.     case EditMode :
  5898.     case MailMode :
  5899.       if (edit == False) { PopupDialog (w, event, EditDialog); return; }
  5900.  
  5901.       if (current_node->down == NULL) 
  5902.     goto play_move;
  5903.       else
  5904.     PopupDialog (w, event, ReplaceNodeDialog);
  5905.       break;
  5906.  
  5907.     case PlayMode :
  5908.       if ((current_node->player == SG_BlackStone && black_player == Human) ||
  5909.       (current_node->player == SG_WhiteStone && white_player == Human))
  5910.         goto play_move;
  5911.       break;
  5912.     }
  5913.     return;
  5914.  
  5915.    play_move :
  5916.     HideTmpProperty (current_node);
  5917.     
  5918.     node         = SG_MakeNode (current_node, SG_Move);
  5919.     node->x      = 0;
  5920.     node->y      = 0;
  5921.     node->color  = current_node->player;
  5922.     
  5923.     Play (node);
  5924.     
  5925.     modified     = True;
  5926.     current_node = node;
  5927.  
  5928.     ShowProperty   (current_node);
  5929.     RedisplayBoard ();
  5930.  
  5931.     switch (current_mode) {
  5932.     case PlayMode : signalMove (node); break;
  5933.     case MailMode : Edit (True); break;
  5934.     }
  5935.   }
  5936. }
  5937.  
  5938. /*******************************************************************************************************
  5939.  */
  5940.  
  5941. /* ARGSUSED */
  5942.  
  5943. void MakeMove (w, event, params, num_params)
  5944. Widget    w;
  5945. XEvent   *event;
  5946. String   *params;
  5947. Cardinal *num_params;
  5948. {
  5949.   SG_NodePtr    node;
  5950.   int           player;
  5951.   int           play;
  5952.   Position      x;
  5953.   Position      y;
  5954.  
  5955.   if (event->type != ButtonPress) {
  5956.     XtAppWarning (XtWidgetToApplicationContext (w), 
  5957.           "XGoban - makeMove : This action routine requires a ButtonPress event.");
  5958.     return;
  5959.   }
  5960.  
  5961.   if (current_node != NULL)
  5962.     switch (current_mode) {
  5963.     case EditMode :
  5964.     case MailMode :
  5965.       if (edit               == False) { PopupDialog (w, event, EditDialog       ); return; }
  5966.       if (current_node->down != NULL ) { PopupDialog (w, event, ReplaceNodeDialog); return; }
  5967.  
  5968.       goto play_move;
  5969.  
  5970.     case PlayMode :
  5971.       if (current_node->player == SG_BlackStone && black_player != Human) break;
  5972.       if (current_node->player == SG_WhiteStone && white_player != Human) break;
  5973.       if (w_second_toplevel != NULL) {
  5974.     if (w == w_second_goban && current_node->player != second_player) break;
  5975.     if (w == w_goban        && current_node->player == second_player) break;
  5976.       }
  5977.  
  5978.       goto play_move;
  5979.     }
  5980.  
  5981.   if (beep >= -100)
  5982.     XBell (XtDisplay (w_goban), beep);
  5983.  
  5984.   return;
  5985.  
  5986.  play_move :
  5987.   x = (Position) ((XButtonPressedEvent *) event)->x;
  5988.   y = (Position) ((XButtonPressedEvent *) event)->y;
  5989.   
  5990.   if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE) {
  5991.     
  5992.     HideTmpProperty (current_node);
  5993.     
  5994.     player = current_node->player;
  5995.     node   =  SG_MakeNode (current_node, SG_Move);
  5996.     
  5997.     node->x     = x;
  5998.     node->y     = y;
  5999.     node->color = player;
  6000.     
  6001.     play = Play (node);
  6002.     
  6003.     switch (play) {
  6004.     case SG_PlayIllegal : PopupDialog (w, event, IllegalMoveDialog); break;
  6005.     case SG_PlayKo      : PopupDialog (w, event, KoMoveDialog     ); break;
  6006.     case SG_PlaySuicide : PopupDialog (w, event, SuicideMoveDialog); break;
  6007.     }
  6008.     
  6009.     if (play != SG_OK) {
  6010.       SG_RemoveNode   (node);
  6011.       SG_FreeNode     (node);
  6012.       ShowTmpProperty (current_node);
  6013.     }
  6014.     
  6015.     else {
  6016.       modified     = True;
  6017.       current_node = node;
  6018.  
  6019.       ShowProperty   (current_node);
  6020.       RedisplayBoard ();
  6021.  
  6022.       switch (current_mode) {
  6023.       case PlayMode : signalMove (node); break;
  6024.       case MailMode : Edit (True); break;
  6025.       }
  6026.     }
  6027.   }
  6028.  
  6029.   else if (beep >= -100)
  6030.     XBell (XtDisplay (w_goban), beep);
  6031. }
  6032.  
  6033. /*******************************************************************************************************
  6034.  */
  6035.  
  6036. /* ARGSUSED */
  6037.  
  6038. void MakeVariation (w, event, params, num_params)
  6039. Widget    w;
  6040. XEvent   *event;
  6041. String   *params;
  6042. Cardinal *num_params;
  6043. {
  6044.   SG_NodePtr   tmp = current_node;
  6045.   SG_NodePtr   node;
  6046.   int          player;
  6047.   int          play;
  6048.   Position     x;
  6049.   Position     y;
  6050.  
  6051.   if (event->type != ButtonPress) {
  6052.     XtAppWarning (XtWidgetToApplicationContext (w), 
  6053.           "XGoban - makeVariation : This action routine requires a ButtonPress event.");
  6054.     return;
  6055.   }
  6056.  
  6057.   if (current_node != NULL)
  6058.     switch (current_mode) {
  6059.     case EditMode :
  6060.     case MailMode :
  6061.  
  6062.       if (current_node->type != SG_EventType) {
  6063.     
  6064.     x = (Position) ((XButtonPressedEvent *) event)->x;
  6065.     y = (Position) ((XButtonPressedEvent *) event)->y;
  6066.     
  6067.     if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE) {
  6068.       
  6069.       tmp = current_node;
  6070.       while (tmp->left != NULL) tmp = tmp->left;
  6071.       
  6072.       player = tmp->up->player;
  6073.       
  6074.       tmp = current_node;
  6075.       while (tmp->left != NULL) tmp = tmp->left;
  6076.       
  6077.       while (tmp != NULL) {
  6078.         if (tmp->type == SG_MoveType && tmp->color == player &&
  6079.         (Position) tmp->x == x && (Position) tmp->y == y)
  6080.           return;
  6081.         
  6082.         tmp = tmp->right;
  6083.       }
  6084.       
  6085.       HideProperty (current_node);
  6086.       Unplay       (current_node);
  6087.       
  6088.       node =  SG_MakeNode (current_node, SG_VariationMove);
  6089.       
  6090.       node->x     = x;
  6091.       node->y     = y;
  6092.       node->color = player;
  6093.       
  6094.       play = Play (node);
  6095.       
  6096.       switch (play) {
  6097.       case SG_PlayIllegal : PopupDialog (w, event, IllegalMoveDialog); break;
  6098.       case SG_PlayKo      : PopupDialog (w, event, KoMoveDialog     ); break;
  6099.       case SG_PlaySuicide : PopupDialog (w, event, SuicideMoveDialog); break;
  6100.         
  6101.       }
  6102.       
  6103.       if (play != SG_OK) {
  6104.         SG_RemoveNode (node);
  6105.         SG_FreeNode   (node);
  6106.         Play          (current_node);
  6107.         ShowProperty  (current_node);
  6108.       }
  6109.       
  6110.       else {
  6111.         modified     = True;
  6112.         current_node = node;
  6113.         ShowProperty   (current_node);
  6114.         RedisplayBoard ();
  6115.       }
  6116.     }
  6117.       }
  6118.     }
  6119. }
  6120.  
  6121. /*******************************************************************************************************
  6122.  */
  6123.  
  6124. /* ARGSUSED */
  6125.  
  6126. void MakeVariationPass (w, event, params, num_params)
  6127. Widget    w;
  6128. XEvent   *event;
  6129. String   *params;
  6130. Cardinal *num_params;
  6131. {
  6132.   SG_NodePtr   tmp = current_node;
  6133.   SG_NodePtr   node;
  6134.   int          player;
  6135.   Position     x;
  6136.   Position     y;
  6137.  
  6138.   if (current_node != NULL)
  6139.     switch (current_mode) {
  6140.     case EditMode :
  6141.     case MailMode :
  6142.  
  6143.       if (current_node->type != SG_EventType) {
  6144.     
  6145.     x = 0;
  6146.     y = 0;
  6147.       
  6148.     tmp = current_node;
  6149.     while (tmp->left != NULL) tmp = tmp->left;
  6150.       
  6151.     player = tmp->up->player;
  6152.       
  6153.     tmp = current_node;
  6154.     while (tmp->left != NULL) tmp = tmp->left;
  6155.       
  6156.     while (tmp != NULL) {
  6157.       if (tmp->type == SG_MoveType && tmp->color == player &&
  6158.           (Position) tmp->x == x && (Position) tmp->y == y)
  6159.         return;
  6160.         
  6161.       tmp = tmp->right;
  6162.     }
  6163.       
  6164.     HideProperty (current_node);
  6165.     Unplay       (current_node);
  6166.     
  6167.     node =  SG_MakeNode (current_node, SG_VariationMove);
  6168.     
  6169.     node->x     = x;
  6170.     node->y     = y;
  6171.     node->color = player;
  6172.     
  6173.     (void) Play (node);
  6174.  
  6175.     current_node = node;
  6176.     modified     = True;
  6177.  
  6178.     ShowProperty   (current_node);
  6179.     RedisplayBoard ();
  6180.       }
  6181.     }
  6182. }
  6183.  
  6184. /*******************************************************************************************************
  6185.  */
  6186.  
  6187. static Dimension size;
  6188. static Position  top;
  6189. static Position  left;
  6190. static Position  bottom;
  6191. static Position  right;
  6192.  
  6193. static Position  u_top;
  6194. static Position  u_left;
  6195. static Position  u_bottom;
  6196. static Position  u_right;
  6197.  
  6198. /* ARGSUSED */
  6199.  
  6200. void SetMode (w, event, params, num_params)
  6201. Widget    w;
  6202. XEvent   *event;
  6203. String   *params;
  6204. Cardinal *num_params;
  6205. {
  6206.   Mode           md;
  6207.   Arg            args[8];
  6208.   unsigned char *ptr = NULL;
  6209.  
  6210.   if (current_node != NULL) {
  6211.     if (*num_params != 1) {
  6212.       XtAppWarning (XtWidgetToApplicationContext (w), 
  6213.             "XGoban - mode : This action routine requires one argument.");
  6214.       return;
  6215.     }
  6216.  
  6217.     switch (params[0][0]) {
  6218.     case 'E' : case 'e' : md = EditMode   ; break;
  6219.     case 'D' : case 'd' : md = DiagramMode; break;
  6220.     case 'S' : case 's' : md = SizeMode   ; break;
  6221.     case 'V' : case 'v' : md = ViewMode   ; break;
  6222.     default  :
  6223.       XtAppWarning (XtWidgetToApplicationContext (w), 
  6224.             "XGoban - mode : Argument should be Edit, Read, View, Diagram or Size.");
  6225.       return;
  6226.     }
  6227.  
  6228.     if (md != EditMode && edit         == False   ) { PopupDialog (w, event, EditDialog    ); return; }
  6229.     
  6230.     switch (md) {
  6231.     case EditMode :
  6232.  
  6233.       switch (current_mode) {
  6234.  
  6235.       case SizeMode :
  6236.     XtSetArg (args[0], XtNgameSize  , (XtArgVal) size);
  6237.     XtSetValues (w_goban, args, 1);
  6238.  
  6239.       case ViewMode :
  6240.  
  6241.     XtSetArg (args[0], XtNviewTop   , (XtArgVal) top   );
  6242.     XtSetArg (args[1], XtNviewLeft  , (XtArgVal) left  );
  6243.     XtSetArg (args[2], XtNviewBottom, (XtArgVal) bottom);
  6244.     XtSetArg (args[3], XtNviewRight , (XtArgVal) right );
  6245.     XtSetValues (w_goban, args, 4);
  6246.     
  6247.     RedisplayBoard ();
  6248.     break;
  6249.  
  6250.       case DiagramMode :
  6251.     ptr = EndDiagram ();
  6252.  
  6253.     if (ptr != NULL) {
  6254.  
  6255.       current_node->setup = ptr;
  6256.  
  6257.       Play (current_node);
  6258.       ShowProperty (current_node);
  6259.     }
  6260.     break;
  6261.  
  6262.       default :
  6263.     if (beep >= -100) 
  6264.       XBell (XtDisplay (w_goban), beep); 
  6265.     return;
  6266.       }
  6267.       
  6268.       md = (mail_node == NULL) ? EditMode : MailMode;
  6269.  
  6270.       break;
  6271.  
  6272.     case DiagramMode   : 
  6273.       if (current_mode != EditMode && current_mode != MailMode) 
  6274.     { if (beep >= -100) XBell (XtDisplay (w_goban), beep); return; }
  6275.       if (current_node->type == SG_MoveType) 
  6276.     { PopupDialog (w, event, DiagramBadNodeWarning); return; }
  6277.       
  6278.       Unplay (current_node);
  6279.       StartDiagram ();
  6280.       Play (current_node);
  6281.     
  6282.       break;
  6283.     
  6284.     case SizeMode      : 
  6285.       if (current_mode != EditMode) { if (beep >= -100) XBell (XtDisplay (w_goban), beep); return; }
  6286.       if (current_node->type  != SG_EventType) { PopupDialog (w, event, SizeBadNodeWarning); return; }
  6287.       if (current_node->down  != NULL        ) { PopupDialog (w, event, RemoveStonesDialog); return; }
  6288.  
  6289.       HideProperty (current_node);
  6290.       Unplay       (current_node);
  6291.  
  6292.       free (current_node->setup);
  6293.       current_node->setup = NULL;
  6294.  
  6295.       RedisplayBoard ();
  6296.  
  6297.       break;
  6298.     
  6299.     case ViewMode      : 
  6300.       if (current_mode != EditMode && current_mode != MailMode)
  6301.     { if (beep >= -100) XBell (XtDisplay (w_goban), beep); return; }
  6302.  
  6303.       XtSetArg (args[0], XtNgameSize  , (XtArgVal) &size);
  6304.       XtGetValues (w_goban, args, 1);
  6305.  
  6306.       XtSetArg (args[0], XtNviewTop   , (XtArgVal) &top   );
  6307.       XtSetArg (args[1], XtNviewLeft  , (XtArgVal) &left  );
  6308.       XtSetArg (args[2], XtNviewBottom, (XtArgVal) &bottom);
  6309.       XtSetArg (args[3], XtNviewRight , (XtArgVal) &right );
  6310.       XtGetValues (w_goban, args, 4);
  6311.    
  6312.       HideProperty (current_node);
  6313.  
  6314.       XtSetArg (args[0], XtNviewTop   , (XtArgVal) &u_top   );
  6315.       XtSetArg (args[1], XtNviewLeft  , (XtArgVal) &u_left  );
  6316.       XtSetArg (args[2], XtNviewBottom, (XtArgVal) &u_bottom);
  6317.       XtSetArg (args[3], XtNviewRight , (XtArgVal) &u_right );
  6318.       XtGetValues (w_goban, args, 4);
  6319.     
  6320.       ShowProperty (current_node);
  6321.  
  6322.       XtSetArg (args[0], XtNviewTop   , (XtArgVal) size);
  6323.       XtSetArg (args[1], XtNviewLeft  , (XtArgVal) 1   );
  6324.       XtSetArg (args[2], XtNviewBottom, (XtArgVal) 1   );
  6325.       XtSetArg (args[3], XtNviewRight , (XtArgVal) size);
  6326.       XtSetValues (w_goban, args, 4);
  6327.       
  6328.       RedisplayBoard ();
  6329.       break;
  6330.     
  6331.       default :
  6332.     return;
  6333.     }
  6334.  
  6335.     current_mode = md;
  6336.  
  6337.     ShowCursor (current_node);
  6338.   }
  6339. }
  6340.  
  6341. /*******************************************************************************************************
  6342.  *
  6343.  *    Drag a rectangle on screen to set property SiZe or VieW.
  6344.  *    Must be called by user as 'drag(Start)' 'drag()' and 'drag(Stop)'.
  6345.  */
  6346.  
  6347. static Position x0;
  6348. static Position y0;
  6349. static Position x1;
  6350. static Position y1;
  6351.  
  6352. static int      drag_in_progress = 0;
  6353. static GC       drag_gc;
  6354.  
  6355. void Drag (w, event, params, num_params)
  6356. Widget    w;
  6357. XEvent   *event;
  6358. String   *params;
  6359. Cardinal *num_params;
  6360. {
  6361.   static Boolean  gc_created = False;
  6362.  
  6363.   int             size;
  6364.   Arg             args[4];
  6365.   Position        x;
  6366.   Position        y;
  6367.   Position        xmax;
  6368.   Position        ymax;
  6369.   Dimension       point_size;
  6370.   long            value;
  6371.  
  6372.   if (current_mode == SizeMode || current_mode == ViewMode) {
  6373.     
  6374.     if (event->type != MotionNotify && event->type != ButtonPress && event->type != ButtonRelease) {
  6375.       XtAppWarning (XtWidgetToApplicationContext (w), 
  6376.             "XGoban - drag : This action routine requires a button event.");
  6377.       return;
  6378.     }
  6379.  
  6380.     if (gc_created == False) {
  6381.       XGCValues      values;
  6382.  
  6383.       values.function = GXinvert;
  6384.       drag_gc         = XCreateGC (XtDisplay (w_goban), XtWindow (w_goban), GCFunction, &values);
  6385.       gc_created      = True;
  6386.     }
  6387.  
  6388.     switch (*num_params) {
  6389.  
  6390.     case 0 :
  6391.     
  6392.     /*
  6393.      *   drag() : erase previous rectangle, update coordinates and redraw rectangle on screen.
  6394.      */
  6395.  
  6396.       if (event->type != MotionNotify) {
  6397.     XtAppWarning (XtWidgetToApplicationContext (w), 
  6398.               "XGoban - drag() : This action routine requires a MotionNotify event.");
  6399.     return;
  6400.       }
  6401.  
  6402.       if (drag_in_progress == 1) {
  6403.  
  6404.     x = (Position) ((XButtonEvent *) event)->x;
  6405.     y = (Position) ((XButtonEvent *) event)->y;
  6406.     
  6407.     if (GbGetStoneFromPosition (w_goban, &x, &y) != TRUE) return;
  6408.       
  6409.     xmax = 19;
  6410.     ymax = 1;
  6411.  
  6412.     GbGetPositionFromStone (w_goban, &x   , &y   );
  6413.     GbGetPositionFromStone (w_goban, &xmax, &ymax);
  6414.     
  6415.     if (x > x0 && y > y0 && (x != x1 || y != y1)) {
  6416.       
  6417.       XtSetArg (args[0], XtNpointSize, &point_size);
  6418.       XtGetValues (w_goban, args, 1);
  6419.       
  6420.       if (x0 != x1 || y0 != y1)
  6421.         XDrawRectangle (XtDisplay (w), XtWindow (w), drag_gc, 
  6422.                 x0 - point_size / 2, y0 - point_size / 2, 
  6423.                 x1 - x0 + point_size, y1 - y0 + point_size);
  6424.             
  6425.       if (current_mode == SizeMode) {
  6426.         x = x0 + Min (xmax - x0, Min (ymax - y0, Max (x - x0, y - y0)));
  6427.         y = y0 + Min (xmax - x0, Min (ymax - y0, Max (x - x0, y - y0)));
  6428.       }
  6429.       
  6430.       x1 = x;
  6431.       y1 = y;
  6432.     
  6433.       XDrawRectangle (XtDisplay (w), XtWindow (w), drag_gc, 
  6434.               x0 - point_size / 2, y0 - point_size / 2, 
  6435.               x1 - x0 + point_size, y1 - y0 + point_size);
  6436.  
  6437.       XFlush (XtDisplay (w));
  6438.     }
  6439.       }
  6440.       break;
  6441.  
  6442.     case 1 :
  6443.  
  6444.       switch (params[0][2]) {
  6445.  
  6446.       case 'A' : 
  6447.       case 'a' :
  6448.     
  6449.     /*
  6450.      *   drag(Start) : initialize rectangle (x0 y0 x1 y1).
  6451.      */
  6452.  
  6453.     if (event->type != ButtonPress) {
  6454.       XtAppWarning (XtWidgetToApplicationContext (w), 
  6455.             "XGoban - drag(Start) : This action routine requires a ButtonPress event.");
  6456.       return;
  6457.     }
  6458.  
  6459.     x = (Position) ((XButtonEvent *) event)->x;
  6460.     y = (Position) ((XButtonEvent *) event)->y;
  6461.     
  6462.     if (GbGetStoneFromPosition (w_goban, &x, &y) == TRUE) {
  6463.     
  6464.       GbGetPositionFromStone (w_goban, &x, &y);
  6465.     
  6466.       x1 = x0 = x;
  6467.       y1 = y0 = y;
  6468.       
  6469.       XtSetArg (args[0], XtNcursor, XC_bottom_right_corner);
  6470.       XtSetValues (w_goban, args, 1);
  6471.       
  6472.       drag_in_progress = 1;
  6473.     }
  6474.     break;
  6475.   
  6476.       case 'O' : 
  6477.       case 'o' :
  6478.     
  6479.     /*
  6480.      *   drag(Stop) : erase rectangle on screen and create desired property.
  6481.      */
  6482.  
  6483.     if (event->type != ButtonRelease) {
  6484.       XtAppWarning (XtWidgetToApplicationContext (w), 
  6485.             "XGoban - drag(Stop) : This action routine requires a ButtonRelease event.");
  6486.       return;
  6487.     }
  6488.       
  6489.     if (drag_in_progress == 1) {
  6490.       XtSetArg (args[0], XtNpointSize, &point_size);
  6491.       XtGetValues (w_goban, args, 1);
  6492.     
  6493.       XDrawRectangle (XtDisplay (w), XtWindow (w), drag_gc, 
  6494.               x0 - point_size / 2, y0 - point_size / 2, 
  6495.               x1 - x0 + point_size, y1 - y0 + point_size);
  6496.     
  6497.       GbGetStoneFromPosition (w_goban, &x0, &y0);
  6498.       GbGetStoneFromPosition (w_goban, &x1, &y1);
  6499.  
  6500.       size = Max (x1 - x0 + 1, y0 - y1 + 1);
  6501.     
  6502.       switch (current_mode) {
  6503.  
  6504.         /*        
  6505.          *   Create SiZe property.
  6506.          */
  6507.  
  6508.       case SizeMode :
  6509.       
  6510.         if (size > 1 && size < 20) {
  6511.           XtSetArg (args[0], XtNgameSize , (XtArgVal) size);
  6512.           XtSetValues (w_goban, args, 1);
  6513.  
  6514.           value = ((long) size << 24) + (1 << 16) + (1 << 8) + (long) size;
  6515.  
  6516.           SG_MakeProperty (current_node, SG_SiZe, size );
  6517.           SG_MakeProperty (current_node, SG_VieW, value);
  6518.  
  6519.           modified = True;
  6520.         }
  6521.  
  6522.         break;
  6523.  
  6524.         /*        
  6525.          *   Create VieW property.
  6526.          */
  6527.       
  6528.       case ViewMode :
  6529.         
  6530.         if (y0 > y1 && x1 > x0) {
  6531.    
  6532.           XtSetArg (args[0], XtNviewTop   , (XtArgVal) y0);
  6533.           XtSetArg (args[1], XtNviewLeft  , (XtArgVal) x0);
  6534.           XtSetArg (args[2], XtNviewBottom, (XtArgVal) y1);
  6535.           XtSetArg (args[3], XtNviewRight , (XtArgVal) x1);
  6536.           XtSetValues (w_goban, args, 4);
  6537.  
  6538.           value = ((long) u_top << 24) + ((long) u_left << 16) + ((long) u_bottom << 8) + (long) u_right;
  6539.           SG_MakeProperty (current_node, SG_unVieW, value);
  6540.  
  6541.           value = ((long) y0    << 24) + ((long) x0     << 16) + ((long) y1       << 8) + (long) x1     ;
  6542.           SG_MakeProperty (current_node, SG_VieW  , value);
  6543.  
  6544.           modified = True;
  6545.         }
  6546.         break;
  6547.       }
  6548.     }
  6549.  
  6550.     /*        
  6551.      *   Redisplay current node.
  6552.      */
  6553.  
  6554.     current_mode     = (mail_node == NULL) ? EditMode : MailMode;
  6555.     drag_in_progress = 0;
  6556.  
  6557.     ShowCursor     (current_node);
  6558.     RedisplayBoard ();
  6559.     break;
  6560.  
  6561.       default  :
  6562.     XtAppWarning (XtWidgetToApplicationContext (w), 
  6563.               "XGoban - drag : Argument should be Start or Stop.");
  6564.     return;
  6565.       }
  6566.       break;
  6567.  
  6568.     default :
  6569.       XtAppWarning (XtWidgetToApplicationContext (w), 
  6570.             "XGoban - drag : This action routine requires one or no argument.");
  6571.       return;
  6572.     }
  6573.   }
  6574. }
  6575. SHAR_EOF
  6576. fi # end of overwriting check
  6577. if test -f 'misc.c'
  6578. then
  6579.     echo shar: will not over-write existing file "'misc.c'"
  6580. else
  6581. cat << \SHAR_EOF > 'misc.c'
  6582. /****************************************************************************************************************
  6583.  *
  6584.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  6585.  *
  6586.  *  This program is distributed in the hope that it will be useful.
  6587.  *  Use and copying of this software and preparation of derivative works
  6588.  *  based upon this software are permitted, so long as the following
  6589.  *  conditions are met:
  6590.  *       o credit to the authors is acknowledged following current
  6591.  *         academic behaviour
  6592.  *       o no fees or compensation are charged for use, copies, or
  6593.  *         access to this software
  6594.  *       o this copyright notice is included intact.
  6595.  *  This software is made available AS IS, and no warranty is made about 
  6596.  *  the software or its performance. 
  6597.  * 
  6598.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  6599.  *  Send them to    dumesnil@etca.fr   or to:
  6600.  *       
  6601.  *       Antoine de Maricourt
  6602.  *       ETCA CREA-SP
  6603.  *       16 bis, avenue Prieur de la Cote d'Or
  6604.  *       94114 Arcueil Cedex
  6605.  *       France
  6606.  */
  6607.  
  6608. #include <X11/Intrinsic.h>
  6609. #include <X11/Shell.h>
  6610. #include <X11/StringDefs.h>
  6611.  
  6612. #include <X11/cursorfont.h>
  6613. #include <X11/Xaw/AsciiText.h>
  6614. #include <X11/Xaw/Label.h>
  6615.  
  6616. #include "xgoban.h"
  6617.  
  6618. /*******************************************************************************************************
  6619.  *
  6620.  */
  6621.  
  6622. void CenterWindow (w, button)
  6623. Widget    w;
  6624. Widget    button;
  6625. {
  6626.   Display          *display = XtDisplay (w);
  6627.   Window            root;
  6628.   Window            child;
  6629.   int               rx;
  6630.   int               ry;
  6631.   int               bw;
  6632.   int               ignore;
  6633.   unsigned int      mask;
  6634.   Arg               args[4];
  6635.   Dimension         butw;
  6636.   Dimension         buth;
  6637.   Dimension         width;
  6638.   Dimension         height;
  6639.   Position          x;
  6640.   Position          y;
  6641.   XWindowAttributes attr;
  6642.  
  6643.   if (XtIsRealized (w) == FALSE) XtRealizeWidget (w);
  6644.  
  6645.   XGetWindowAttributes (display, XtWindow (w), &attr);
  6646.   bw = attr.border_width;
  6647.   XGetWindowAttributes (display, RootWindowOfScreen (XtScreen (w)), &attr);
  6648.  
  6649.   XQueryPointer (display, XtWindow (w), &root, &child, &rx, &ry, &ignore, &ignore, &mask);
  6650.  
  6651.   XtSetArg (args[0], XtNwidth , (XtArgVal) &width );
  6652.   XtSetArg (args[1], XtNheight, (XtArgVal) &height);
  6653.  
  6654.   XtGetValues (w, args, 2);
  6655.  
  6656.   if (button != NULL) {
  6657.     XtSetArg (args[0], XtNx      , (XtArgVal) &x    );
  6658.     XtSetArg (args[1], XtNy      , (XtArgVal) &y    );
  6659.     XtSetArg (args[2], XtNwidth  , (XtArgVal) &butw );
  6660.     XtSetArg (args[3], XtNheight , (XtArgVal) &buth );
  6661.  
  6662.     XtGetValues (button, args, 4);
  6663.  
  6664.     rx = rx - x - 3 * butw / 4;
  6665.     ry = ry - y - 2 * buth / 3;
  6666.   }
  6667.  
  6668.   else {
  6669.     rx = rx - width  / 2;
  6670.     ry = ry - height / 2;
  6671.   }
  6672.  
  6673.   rx = (rx < 2) ? 2 : rx;
  6674.   rx = (rx > attr.width  - width  - 2 * bw - 4) ? attr.width  - width  - 2 * bw - 4 : rx;
  6675.  
  6676.   ry = (ry < 2) ? 2 : ry;
  6677.   ry = (ry > attr.height - height - 2 * bw - 4) ? attr.height - height - 2 * bw - 4 : ry;
  6678.  
  6679.   XtMoveWidget (w, rx, ry); 
  6680. }
  6681.  
  6682. /*******************************************************************************************************
  6683.  *
  6684.  */
  6685.  
  6686. void ShowCursor (node)
  6687. SG_NodePtr node;
  6688. {
  6689.   Arg            args[2];
  6690.   int            cursor = XC_question_arrow;
  6691.     
  6692.   switch (current_mode) {
  6693.     
  6694.   case EditMode      :
  6695.   case PlayMode      :
  6696.   case MailMode      :
  6697.     
  6698.     if (node != NULL) {
  6699.       
  6700.       switch (node->type) {
  6701.     
  6702.       case SG_EventType   :
  6703.       case SG_DiagramType :
  6704.     if (node->left != NULL || node->right != NULL)
  6705.       cursor = GbCGrayStone;
  6706.     else
  6707.       cursor = (node->player == SG_BlackStone) ? GbCBlackStone : GbCWhiteStone;
  6708.     break;
  6709.     
  6710.       case SG_MoveType :
  6711.     if (node->left != NULL || node->right != NULL)
  6712.       cursor = GbCGrayStone;
  6713.     else
  6714.       cursor = (node->color == SG_BlackStone) ? GbCWhiteStone : GbCBlackStone;
  6715.     break;
  6716.       }
  6717.     }
  6718.  
  6719.     else
  6720.       cursor =  GbCGrayStone;
  6721.  
  6722.     break;
  6723.     
  6724.   case SizeMode :
  6725.   case ViewMode :
  6726.     cursor =  XC_top_left_corner;
  6727.     break;
  6728.     
  6729.   case DiagramMode :
  6730.     cursor =  XC_dot;
  6731.     break;
  6732.  
  6733.   default :
  6734.     return;
  6735.   }
  6736.   
  6737.   XtSetArg (args[0], XtNcursor, (XtArgVal) cursor);
  6738.   XtSetValues (w_goban,  args, 1);
  6739.  
  6740.   if (w_second_goban != NULL)   
  6741.     XtSetValues (w_second_goban,  args, 1);
  6742. }
  6743.  
  6744. /*******************************************************************************************************
  6745.  *
  6746.  */
  6747.  
  6748. Boolean LoadFile (w, event, name)
  6749. Widget  w;
  6750. XEvent *event;
  6751. char   *name;
  6752. {
  6753.   FILE       *file;
  6754.   SG_NodePtr  node;
  6755.   char        tmp_name[1024];
  6756.   char       *src = path;
  6757.   char       *dst;
  6758.  
  6759.   if (*name == '/') {
  6760.     if ((file = fopen (name, "r")) == NULL)
  6761.       goto failed;
  6762.   }
  6763.   
  6764.   else 
  6765.     do {
  6766.       dst = tmp_name;
  6767.       
  6768.       while (*src != ':' && *src != '\0')
  6769.     *dst++ = *src++;
  6770.       
  6771.       if (*src == '\0' && dst == tmp_name) {
  6772.        failed :
  6773.  
  6774.     if (w != NULL) 
  6775.       PopupDialog (w, event, CantOpenFileDialog);
  6776.     
  6777.     return False;
  6778.       }
  6779.       
  6780.       *dst++ = '/';
  6781.       *dst++ = '\0';
  6782.       
  6783.       if (*src == ':') src++;
  6784.       
  6785.       (void) strcat (tmp_name, name);
  6786.       file = fopen (tmp_name, "r");
  6787.       
  6788.     } while (file == NULL);
  6789.  
  6790.   node = SG_ReadTree (file);
  6791.   fclose (file);
  6792.   
  6793.   if (node != NULL) {
  6794.     do {
  6795.       while (node->up != NULL)
  6796.     node = node->up;
  6797.       while (node->left != NULL)
  6798.     node = node->left;
  6799.     } while (node->up != NULL);
  6800.     
  6801.     SG_FreeNode (tree);
  6802.  
  6803.     tree         = node;
  6804.     current_node = node;
  6805.     modified     = False;
  6806.  
  6807.     (void) strcpy (file_name, tmp_name); 
  6808.   }
  6809.  
  6810.   return True;
  6811. }
  6812.  
  6813. /*******************************************************************************************************
  6814.  */
  6815.  
  6816. Boolean SaveFile (w, event, name)
  6817. Widget  w;
  6818. XEvent *event;
  6819. char   *name;
  6820. {
  6821.   FILE       *file;
  6822.   char        tmp_name[256];
  6823.   int         saved;
  6824.  
  6825.   if (*name != '/')
  6826.     (void) strcpy (tmp_name, "./");
  6827.  
  6828.   (void) strcat (tmp_name, name);
  6829.   file = fopen (tmp_name, "w");
  6830.     
  6831.   if (file == NULL && w != NULL) {
  6832.     PopupDialog (w, event, CantOpenFileDialog);
  6833.     return False;
  6834.   }
  6835.  
  6836.   HideTmpProperty (current_node);
  6837.   ShowTmpProperty (current_node);
  6838.  
  6839.   saved = SG_WriteTree (tree, file, short_print == True ? 1 : 0);
  6840.   fclose (file);
  6841.  
  6842.   if (saved != 0 && w != NULL) {
  6843.     PopupDialog (w, event, CantOpenFileDialog);
  6844.     return False;
  6845.   }
  6846.  
  6847.   (void) strcpy (file_name, name);
  6848.   modified = False;
  6849.  
  6850.   return saved == 0 ? True : False;
  6851. }
  6852.  
  6853. /*******************************************************************************************************
  6854.  */
  6855.  
  6856. void Edit (flag)
  6857. Boolean flag;
  6858. {
  6859.   Arg args[4];
  6860.  
  6861.   if (flag == True) {
  6862.     XtSetArg (args[0], XtNeditType         , (XtArgVal) XawtextEdit        );
  6863.     XtSetArg (args[1], XtNdisplayCaret     , (XtArgVal) True               );
  6864.  
  6865.     XtSetValues (c_comment, args, 2);
  6866.  
  6867.     edit = True;
  6868.   }
  6869.  
  6870.   else {
  6871.     XtSetArg (args[0], XtNeditType         , (XtArgVal) XawtextRead        );
  6872.     XtSetArg (args[1], XtNdisplayCaret     , (XtArgVal) False              );
  6873.  
  6874.     XtSetValues (c_comment, args, 2);
  6875.  
  6876.     edit = False;
  6877.   }
  6878. }
  6879. SHAR_EOF
  6880. fi # end of overwriting check
  6881. if test -f 'display.c'
  6882. then
  6883.     echo shar: will not over-write existing file "'display.c'"
  6884. else
  6885. cat << \SHAR_EOF > 'display.c'
  6886. /****************************************************************************************************************
  6887.  *
  6888.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  6889.  *
  6890.  *  This program is distributed in the hope that it will be useful.
  6891.  *  Use and copying of this software and preparation of derivative works
  6892.  *  based upon this software are permitted, so long as the following
  6893.  *  conditions are met:
  6894.  *       o credit to the authors is acknowledged following current
  6895.  *         academic behaviour
  6896.  *       o no fees or compensation are charged for use, copies, or
  6897.  *         access to this software
  6898.  *       o this copyright notice is included intact.
  6899.  *  This software is made available AS IS, and no warranty is made about 
  6900.  *  the software or its performance. 
  6901.  * 
  6902.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  6903.  *  Send them to    dumesnil@etca.fr   or to:
  6904.  *       
  6905.  *       Antoine de Maricourt
  6906.  *       ETCA CREA-SP
  6907.  *       16 bis, avenue Prieur de la Cote d'Or
  6908.  *       94114 Arcueil Cedex
  6909.  *       France
  6910.  */
  6911.  
  6912. #include "xgoban.h"
  6913.  
  6914. #include <X11/Shell.h>
  6915. #include <X11/Xlib.h>
  6916. #include <X11/Xutil.h>
  6917.  
  6918. /*******************************************************************************************************
  6919.  */
  6920.  
  6921. void ShowTmpProperty (node)
  6922. SG_NodePtr node;
  6923. {
  6924.   SG_NodePtr     tmp;
  6925.   char           mark     = 'A';
  6926.   char           letter   = 'a';
  6927.   Position       x;
  6928.   Position       y;
  6929.   SG_PropertyPtr property;
  6930.   unsigned char *ptr;
  6931.   Arg            arg;
  6932.  
  6933.   if (node != NULL) {
  6934.     property = node->property;
  6935.     
  6936.     while (property != NULL) {
  6937.  
  6938.       switch (property->id) {
  6939.     
  6940.       case SG_Comment :
  6941.     if (property->data.pvalue != NULL)
  6942.       { XtSetArg (arg, XtNstring, (XtArgVal) property->data.pvalue); XtSetValues (c_comment, &arg, 1); }
  6943.     break;
  6944.  
  6945.       case SG_Letters :
  6946.     if ((ptr = property->data.pvalue) != NULL) {
  6947.  
  6948.       while (*ptr != SG_EOS) {
  6949.         x = (*ptr++ & 0x3f);
  6950.         y = (*ptr++ & 0x3f);
  6951.         
  6952.         if (x != 0 || y != 0) {
  6953.           GbSetMark (w_goban, x, y, letter, 0);
  6954.           if (w_second_goban != NULL) 
  6955.         GbSetMark (w_second_goban, x, y, letter, 0);
  6956.           letter++;
  6957.         }
  6958.       }
  6959.     }
  6960.     break;
  6961.  
  6962.       case SG_Marked :
  6963.     if ((ptr = property->data.pvalue) != NULL) {
  6964.  
  6965.       while (*ptr != SG_EOS) {
  6966.         x = (*ptr++ & 0x3f);
  6967.         y = (*ptr++ & 0x3f);
  6968.         
  6969.         if (x != 0 || y != 0) {
  6970.           GbSetMark (w_goban, x, y, 0, GbMTriangleMark);
  6971.           if (w_second_goban != NULL) 
  6972.         GbSetMark (w_second_goban, x, y, 0, GbMTriangleMark);
  6973.         }
  6974.       }
  6975.     }
  6976.     break;
  6977.  
  6978.       case SG_nodeName :
  6979.  
  6980.     if (property->data.pvalue != NULL) {
  6981.       XtSetArg (arg, XtNtitle, (XtArgVal) property->data.pvalue); 
  6982.       XtSetValues (c_toplevel, &arg, 1);
  6983.     }
  6984.     break;
  6985.  
  6986.       case SG_GameName :
  6987.  
  6988.     if (property->data.pvalue != NULL) {
  6989.       XtSetArg (arg, XtNtitle, (XtArgVal) property->data.pvalue); 
  6990.       XtSetValues (w_toplevel, &arg, 1);
  6991.     }
  6992.     break;
  6993.       }
  6994.  
  6995.       property = property->next;
  6996.     }
  6997.  
  6998.     switch (node->type) {
  6999.       
  7000.     case SG_EventType   :
  7001.     case SG_DiagramType :
  7002.       break;
  7003.       
  7004.     case SG_MoveType :
  7005.       tmp = node;
  7006.  
  7007.       while (tmp->left != NULL)
  7008.     tmp = tmp->left;
  7009.       
  7010.       if (tmp->right != NULL)
  7011.     while (tmp != NULL) {
  7012.       if (tmp->type == SG_MoveType && tmp->color == node->color && tmp->x != 0 && tmp->y != 0) {
  7013.         GbSetMark (w_goban, tmp->x, tmp->y, mark, 0);
  7014.         
  7015.         if (w_second_goban != NULL) 
  7016.           GbSetMark (w_second_goban, tmp->x, tmp->y, mark, 0);
  7017.       }
  7018.       
  7019.       mark++;
  7020.       tmp = tmp->right;
  7021.     }
  7022.       
  7023.       else if (autonum == TRUE) {
  7024.     GbSetNum   (w_goban, node->x, node->y, node->num);
  7025.  
  7026.     if (w_second_goban != NULL) 
  7027.       GbSetNum   (w_second_goban, node->x, node->y, node->num);
  7028.       }
  7029.  
  7030.       break;
  7031.     }
  7032.   }
  7033.  
  7034.   ShowCursor (node);
  7035. }
  7036.  
  7037. /*******************************************************************************************************
  7038.  */
  7039.  
  7040. void ShowProperty (node)
  7041. SG_NodePtr node;
  7042. {
  7043.   unsigned char *setup;
  7044.   int            color;
  7045.   int            x;
  7046.   int            y;
  7047.   int            view = 0;
  7048.   SG_PropertyPtr property;
  7049.   Position       top;
  7050.   Position       left;
  7051.   Position       bottom;
  7052.   Position       right;
  7053.   Arg            args[4];
  7054.   long           value;
  7055.  
  7056.   if (node != NULL) {
  7057.     property = node->property;
  7058.     
  7059.     while (property != NULL) {
  7060.       switch (property->id) {
  7061.     
  7062.       case SG_SiZe :
  7063.     XtSetArg (args[0], XtNgameSize, property->data.ivalue); 
  7064.     XtSetValues (w_goban, args, 1);
  7065.     if (w_second_goban != NULL) 
  7066.       XtSetValues (w_second_goban, args, 1);
  7067.     break;
  7068.     
  7069.       case SG_GameName : 
  7070.     if (property->data.pvalue != NULL) {
  7071.       XtSetArg (args[0], XtNtitle, property->data.pvalue); 
  7072.       XtSetValues (w_goban, args, 1);
  7073.       if (w_second_goban != NULL) 
  7074.         XtSetValues (w_second_goban, args, 1);
  7075.     }
  7076.     break;
  7077.     
  7078.       case SG_VieW :
  7079.     XtSetArg (args[0], XtNviewTop   , &top   );
  7080.     XtSetArg (args[1], XtNviewLeft  , &left  );
  7081.     XtSetArg (args[2], XtNviewBottom, &bottom);
  7082.     XtSetArg (args[3], XtNviewRight , &right );
  7083.  
  7084.     XtGetValues (w_goban, args, 4);
  7085.     if (w_second_goban != NULL) 
  7086.       XtGetValues (w_second_goban, args, 4);
  7087.  
  7088.     value = ((long) top << 24) + ((long) left << 16) + ((long) bottom << 8) + ((long) right);
  7089.  
  7090.     SG_MakeProperty (node, SG_unVieW, value);
  7091.     
  7092.     XtSetArg (args[0], XtNviewTop   , (Position) ((property->data.ivalue >> 24))       );
  7093.     XtSetArg (args[1], XtNviewLeft  , (Position) ((property->data.ivalue >> 16) & 0xff));
  7094.     XtSetArg (args[2], XtNviewBottom, (Position) ((property->data.ivalue >>  8) & 0xff));
  7095.     XtSetArg (args[3], XtNviewRight , (Position) ((property->data.ivalue      ) & 0xff));
  7096.     
  7097.     XtSetValues (w_goban, args, 4);
  7098.     if (w_second_goban != NULL) 
  7099.       XtSetValues (w_second_goban, args, 4);
  7100.     
  7101.     view++;
  7102.  
  7103.     break;
  7104.       }
  7105.       
  7106.       property = property->next;
  7107.     }
  7108.     
  7109.     switch (node->type) {
  7110.       
  7111.     case SG_EventType   :
  7112.       GbClearBoard (w_goban);
  7113.       if (w_second_goban != NULL) 
  7114.     GbClearBoard (w_second_goban);
  7115.  
  7116.       if (view == 0) {
  7117.     XtSetArg (args[0], XtNviewTop   , 19);
  7118.     XtSetArg (args[1], XtNviewLeft  ,  0);
  7119.     XtSetArg (args[2], XtNviewBottom,  0);
  7120.     XtSetArg (args[3], XtNviewRight , 19);
  7121.     
  7122.     XtSetValues (w_goban, args, 4);
  7123.     if (w_second_goban != NULL) 
  7124.       XtSetValues (w_second_goban, args, 4);
  7125.       }
  7126.  
  7127.     case SG_DiagramType :
  7128.       if ((setup = node->setup) != NULL)
  7129.     while (*setup != SG_EOS) {
  7130.       color = (*setup & 0xc0);
  7131.       x     = (*setup++ & 0x3f);
  7132.       y     = (*setup++ & 0x3f);
  7133.       
  7134.       switch (color) {
  7135.       case SG_SETB  : GbSetPoint (w_goban, x, y, GbBlackStone); break;
  7136.       case SG_SETW  : GbSetPoint (w_goban, x, y, GbWhiteStone); break;
  7137.       case SG_SETEB :
  7138.       case SG_SETEW : GbSetPoint (w_goban, x, y, GbEmptyPoint); break;
  7139.       }
  7140.  
  7141.       if (w_second_goban != NULL) 
  7142.         switch (color) {
  7143.         case SG_SETB  : GbSetPoint (w_second_goban, x, y, GbBlackStone); break;
  7144.         case SG_SETW  : GbSetPoint (w_second_goban, x, y, GbWhiteStone); break;
  7145.         case SG_SETEB :
  7146.         case SG_SETEW : GbSetPoint (w_second_goban, x, y, GbEmptyPoint); break;
  7147.         }
  7148.     }
  7149.       break;
  7150.       
  7151.     case SG_MoveType :
  7152.       x     = node->x;
  7153.       y     = node->y;
  7154.       color = (int) ((node->color == SG_BlackStone) ? GbBlackStone : GbWhiteStone);
  7155.  
  7156.       GbSetPoint (w_goban, x, y, color);
  7157.       if (w_second_goban != NULL)       
  7158.     GbSetPoint (w_second_goban, x, y, color);
  7159.  
  7160.       if ((setup = node->setup) != NULL)
  7161.     while (*setup != SG_EOS) {
  7162.       x     = (*setup++ & 0x3f);
  7163.       y     = (*setup++ & 0x3f);
  7164.       
  7165.       GbSetPoint (w_goban, x, y, GbEmptyPoint);
  7166.       if (w_second_goban != NULL) 
  7167.         GbSetPoint (w_second_goban, x, y, GbEmptyPoint);
  7168.     }
  7169.     
  7170.       break;
  7171.     }
  7172.     
  7173.     ShowTmpProperty  (node);
  7174.   }
  7175. }
  7176.  
  7177. /*******************************************************************************************************
  7178.  */
  7179.  
  7180. void HideTmpProperty (node)
  7181. SG_NodePtr node;
  7182. {
  7183.   SG_PropertyPtr  property;
  7184.   String          text;
  7185.   unsigned char  *ptr;
  7186.   int             x;
  7187.   int             y;
  7188.   Arg             arg;
  7189.  
  7190.   if (edit == True) {
  7191.     XtSetArg (arg, XtNstring, &text); XtGetValues (c_comment, &arg, 1);
  7192.  
  7193.     if (node != NULL) {
  7194.       property = SG_GetProperty (node, SG_Comment);
  7195.  
  7196.       if (property != NULL && strcmp (property->data.pvalue, text) != 0) {
  7197.     SG_strcpy (&property->data.pvalue, text, '\0');
  7198.     modified = True;
  7199.       }
  7200.  
  7201.       else if (strcmp (text, "") != 0 && property == NULL) {
  7202.     SG_MakeProperty (node, SG_Comment, text);
  7203.     modified = True;
  7204.       }
  7205.     }
  7206.   }
  7207.  
  7208.   if (node != NULL) {
  7209.     property = node->property;
  7210.  
  7211.     while (property != NULL) {
  7212.       switch (property->id) {
  7213.     
  7214.       case SG_Comment  : XtSetArg (arg, XtNstring, (XtArgVal) ""); XtSetValues (c_comment , &arg, 1); break;
  7215.       case SG_nodeName : XtSetArg (arg, XtNtitle , (XtArgVal) ""); XtSetValues (c_toplevel, &arg, 1); break;
  7216.       case SG_GameName : 
  7217.     XtSetArg (arg, XtNtitle , (XtArgVal) ApplicationName); XtSetValues (w_toplevel, &arg, 1); break;
  7218.  
  7219.       case SG_Marked   :
  7220.       case SG_Letters  :
  7221.     if ((ptr = property->data.pvalue) != NULL) {
  7222.  
  7223.       while (*ptr != SG_EOS) {
  7224.         x = (*ptr++ & 0x3f);
  7225.         y = (*ptr++ & 0x3f);
  7226.         
  7227.         if (x != 0 || y != 0) {
  7228.           GbSetMark (w_goban, x, y, 0, 0);
  7229.           if (w_second_goban != NULL) 
  7230.         GbSetMark (w_second_goban, x, y, 0, 0);
  7231.         }
  7232.       }
  7233.     }
  7234.     break;
  7235.       }
  7236.       
  7237.       property = property->next;
  7238.     }
  7239.     
  7240.     switch (node->type) {
  7241.       
  7242.     case SG_MoveType    :
  7243.       while (node->left != NULL)
  7244.     node = node->left;
  7245.       
  7246.       while (node != NULL) {
  7247.     if (node->type == SG_MoveType) {
  7248.       GbSetMark (w_goban, node->x, node->y, 0, 0);
  7249.  
  7250.       if (w_second_goban != NULL) 
  7251.         GbSetMark (w_second_goban, node->x, node->y, 0, 0);
  7252.     }
  7253.     
  7254.     node = node->right;
  7255.       } 
  7256.  
  7257.       break;
  7258.     }
  7259.   }
  7260. }
  7261.  
  7262. /*******************************************************************************************************
  7263.  */
  7264.  
  7265. void HideProperty (node)
  7266. SG_NodePtr node;
  7267. {
  7268.   Arg            args[5];
  7269.   unsigned char *setup;
  7270.   int            color;
  7271.   int            x;
  7272.   int            y;
  7273.   SG_PropertyPtr property;
  7274.  
  7275.   if (node != NULL) {
  7276.     property = node->property;
  7277.     
  7278.     while (property != NULL) {
  7279.       switch (property->id) {
  7280.  
  7281.       case SG_unVieW :
  7282.     XtSetArg (args[0], XtNviewTop   , (Position) ((property->data.ivalue >> 24)));
  7283.     XtSetArg (args[1], XtNviewLeft  , (Position) ((property->data.ivalue >> 16) & 0xff));
  7284.     XtSetArg (args[2], XtNviewBottom, (Position) ((property->data.ivalue >>  8) & 0xff));
  7285.     XtSetArg (args[3], XtNviewRight , (Position) ((property->data.ivalue      ) & 0xff));
  7286.  
  7287.     XtSetValues (w_goban, args, 4);
  7288.     if (w_second_goban != NULL) 
  7289.       XtSetValues (w_second_goban, args, 4);
  7290.     break;
  7291.       }
  7292.       
  7293.       property = property->next;
  7294.     }
  7295.     
  7296.     switch (node->type) {
  7297.       
  7298.     case SG_EventType   :
  7299.       XtSetArg (args[0], XtNgameSize  , 19);
  7300.       XtSetArg (args[1], XtNviewTop   , 19);
  7301.       XtSetArg (args[2], XtNviewLeft  , 1 );
  7302.       XtSetArg (args[3], XtNviewBottom, 1 );
  7303.       XtSetArg (args[4], XtNviewRight , 19);
  7304.  
  7305.       XtSetValues (w_goban, args, 5);
  7306.       if (w_second_goban != NULL) 
  7307.     XtSetValues (w_second_goban, args, 5);
  7308.  
  7309.     case SG_DiagramType :
  7310.       
  7311.       if ((setup = node->setup) != NULL)
  7312.     while (*setup != SG_EOS) {
  7313.       color = (*setup & 0xc0);
  7314.       x     = (*setup++ & 0x3f);
  7315.       y     = (*setup++ & 0x3f);
  7316.       
  7317.       switch (color) {
  7318.       case SG_SETB  :
  7319.       case SG_SETW  : GbSetPoint (w_goban, x, y, GbEmptyPoint); break;
  7320.       case SG_SETEB : GbSetPoint (w_goban, x, y, GbBlackStone); break;
  7321.       case SG_SETEW : GbSetPoint (w_goban, x, y, GbWhiteStone); break;
  7322.       }
  7323.       
  7324.       if (w_second_goban != NULL) 
  7325.         switch (color) {
  7326.         case SG_SETB  :
  7327.         case SG_SETW  : GbSetPoint (w_second_goban, x, y, GbEmptyPoint); break;
  7328.         case SG_SETEB : GbSetPoint (w_second_goban, x, y, GbBlackStone); break;
  7329.         case SG_SETEW : GbSetPoint (w_second_goban, x, y, GbWhiteStone); break;
  7330.         }
  7331.     }
  7332.       break;
  7333.       
  7334.     case SG_MoveType :
  7335.       x     = node->x;
  7336.       y     = node->y;
  7337.  
  7338.       GbSetPoint (w_goban, x, y, GbEmptyPoint);
  7339.       if (w_second_goban != NULL) 
  7340.     GbSetPoint (w_second_goban, x, y, GbEmptyPoint);
  7341.       
  7342.       if ((setup = node->setup) != NULL) {
  7343.     color = (int) ((node->color == SG_BlackStone) ? GbWhiteStone : GbBlackStone);
  7344.  
  7345.     while (*setup != SG_EOS) {
  7346.       x     = (*setup++ & 0x3f);
  7347.       y     = (*setup++ & 0x3f);
  7348.       
  7349.       GbSetPoint (w_goban, x, y, color);
  7350.       if (w_second_goban != NULL) 
  7351.         GbSetPoint (w_second_goban, x, y, color);
  7352.     }
  7353.       }
  7354.  
  7355.       break;
  7356.     }
  7357.     
  7358.     HideTmpProperty (node);
  7359.   }
  7360. }
  7361.  
  7362. /*******************************************************************************************************
  7363.  */
  7364. SHAR_EOF
  7365. fi # end of overwriting check
  7366. if test -f 'game.c'
  7367. then
  7368.     echo shar: will not over-write existing file "'game.c'"
  7369. else
  7370. cat << \SHAR_EOF > 'game.c'
  7371. /****************************************************************************************************************
  7372.  *
  7373.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  7374.  *
  7375.  *  This program is distributed in the hope that it will be useful.
  7376.  *  Use and copying of this software and preparation of derivative works
  7377.  *  based upon this software are permitted, so long as the following
  7378.  *  conditions are met:
  7379.  *       o credit to the authors is acknowledged following current
  7380.  *         academic behaviour
  7381.  *       o no fees or compensation are charged for use, copies, or
  7382.  *         access to this software
  7383.  *       o this copyright notice is included intact.
  7384.  *  This software is made available AS IS, and no warranty is made about 
  7385.  *  the software or its performance. 
  7386.  * 
  7387.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  7388.  *  Send them to    dumesnil@etca.fr   or to:
  7389.  *       
  7390.  *       Antoine de Maricourt
  7391.  *       ETCA CREA-SP
  7392.  *       16 bis, avenue Prieur de la Cote d'Or
  7393.  *       94114 Arcueil Cedex
  7394.  *       France
  7395.  */
  7396.  
  7397. #include <stdio.h>
  7398. #include <fcntl.h>
  7399. #include <signal.h>
  7400.  
  7401. /*
  7402.  *   RESIGN 
  7403.  *   TERMINAISONS ...
  7404.  */
  7405.  
  7406. #include <X11/Intrinsic.h>
  7407.  
  7408. #include "xgoban.h"
  7409.  
  7410. static FILE *to_black;
  7411. static FILE *from_black;
  7412. static FILE *to_white;
  7413. static FILE *from_white;
  7414.  
  7415. static int   white_pid = -1;
  7416. static int   black_pid = -1;
  7417.  
  7418. /*******************************************************************************************************
  7419.  */
  7420.  
  7421. void signalMove (node)
  7422. SG_NodePtr node;
  7423. {
  7424.   int    x       = node->x;
  7425.   int    y       = node->y;
  7426.   Player player  = (node->player == SG_BlackStone) ? black_player : white_player;
  7427.   FILE  *to_file = (node->player == SG_BlackStone) ? to_black     : to_white;
  7428.  
  7429.   switch (player) {
  7430.   case Wally :
  7431.     if (x == 0 && y == 0)
  7432.       (void) fprintf (to_file, "pass\n");
  7433.     else
  7434.       (void) fprintf (to_file, "%c%d\n", 'a' + ((x > 8) ? x : x - 1), 20 - y);
  7435.  
  7436.     (void) fflush  (to_file);
  7437.     break;
  7438.  
  7439.   case Gnugo :
  7440.     if (x == 0 && y == 0)
  7441.       (void) fprintf (to_file, "pass\n");
  7442.     else
  7443.       (void) fprintf (to_file, "%c%d\n", 'A' + ((x > 8) ? x : x - 1), y);
  7444.  
  7445.     (void) fflush  (to_file);
  7446.     break;
  7447.  
  7448.   case Human :
  7449.     if (w_second_toplevel != NULL && beep >= -100)
  7450.       if (second_player == node->player)
  7451.     XBell (XtDisplay (w_second_goban), beep);
  7452.       else
  7453.     XBell (XtDisplay (w_goban)       , beep);
  7454.     break;
  7455.   }
  7456. }
  7457.  
  7458. static void receive_data (file)
  7459. FILE *file;
  7460. {
  7461.   char       buffer[256];
  7462.   char      *pat;
  7463.   int        x = -1;
  7464.   int        y = -1;
  7465.   SG_NodePtr node;
  7466.  
  7467.   if (current_mode == PlayMode) {
  7468.     if (fgets (buffer, 256, file) == NULL)
  7469.       return;
  7470.  
  7471.     switch (current_node->player == SG_BlackStone ? black_player : white_player) {
  7472.     case Wally :
  7473.       if ((pat = strstr (buffer, "Wally moves to")) != NULL) {
  7474.     sscanf (pat + 16, "%d", &y);
  7475.     x = *(pat + 15) - 'a' + 1; 
  7476.     x = x > 8 ? x - 1 : x;
  7477.     y = 20 - y;
  7478.       }
  7479.       else if ((pat = strstr (buffer, "Wally passes")) != NULL) {
  7480.     x = 0;
  7481.     y = 0;
  7482.       }
  7483.       break;
  7484.       
  7485.     case Gnugo :
  7486.       if ((pat = strstr (buffer, "my move: ")) != NULL) {
  7487.     x = *(pat + 9) - 'A' + 1; 
  7488.     x = x > 8 ? x - 1 : x;
  7489.     sscanf (pat + 10, "%d", &y);
  7490.       }
  7491.       break;
  7492.     }
  7493.     
  7494.     if (x != -1 && y != -1) {
  7495.  
  7496.       HideTmpProperty (current_node);
  7497.     
  7498.       node         =  SG_MakeNode (current_node, SG_Move);
  7499.       node->x      = x;
  7500.       node->y      = y;
  7501.       node->color  = current_node->player;
  7502.       
  7503.       Play (node);
  7504.  
  7505.       modified     = True;
  7506.       current_node = node;
  7507.  
  7508.       ShowProperty   (current_node);
  7509.       RedisplayBoard ();
  7510.  
  7511.       if (x == 0 && y == 0)
  7512.     switch (node->player) {
  7513.     case SG_BlackStone : PopupDialog (w_goban, NULL, BlackPassDialog); break;
  7514.     case SG_WhiteStone : PopupDialog (w_goban, NULL, WhitePassDialog); break;
  7515.     }
  7516.     
  7517.       signalMove (node);
  7518.       
  7519.       if (beep >= -100)
  7520.     XBell (XtDisplay (w_goban), beep);
  7521.     }
  7522.   }
  7523. }
  7524.  
  7525. void startGame (app_context)
  7526. XtAppContext app_context;
  7527. {
  7528.   int   from_pipe [2];
  7529.   int   to_pipe[2];
  7530.   char *argv[10];
  7531.   int   argc = 0;
  7532.  
  7533.   /*
  7534.    *   Start black player program
  7535.    */
  7536.  
  7537.   if (black_player != Human) {
  7538.     pipe (from_pipe);
  7539.     pipe (to_pipe  );
  7540.  
  7541.     if ((black_pid = fork ()) == 0) {
  7542.       fcntl(from_pipe[0], F_SETFL, O_NDELAY);
  7543.  
  7544.       close (0); dup (to_pipe  [0]);
  7545.       close (1); dup (from_pipe[1]);
  7546.       
  7547.       close (to_pipe  [0]);
  7548.       close (to_pipe  [1]);
  7549.       close (from_pipe[0]);
  7550.       close (from_pipe[1]);
  7551.       
  7552.       switch (black_player) {
  7553.       case Wally :
  7554.     argv[argc++] = "wally";
  7555.     argv[argc++] = "\0\0\0"; sprintf (argv[argc - 1], "%d", board_size);
  7556.     if (handicap == 0) argv[argc++] = "-even";
  7557.     argv[argc++] = NULL;
  7558.     
  7559.     if (execvp ("wally", argv) == -1)
  7560.       { fprintf (stderr, "XGoban : can't exec wally\n"); stopGame (); exit (1); }
  7561.     break;
  7562.  
  7563.       case Gnugo :
  7564.     if (execlp ("gnugo", "gnugo", (char *) NULL) == -1)
  7565.       { fprintf (stderr, "XGoban : can't exec gnugo\n"); stopGame (); exit (1); }
  7566.     break;
  7567.        
  7568.       case Human : break;
  7569.       }
  7570.     }
  7571.  
  7572.     if (black_pid == -1) 
  7573.       { fprintf (stderr, "XGoban : fork failed \n"); stopGame (); exit (1); }
  7574.     
  7575.     /*
  7576.      *    XGoban : install pipe with black player
  7577.      */
  7578.  
  7579.     else {
  7580.       close (to_pipe  [0]);
  7581.       close (from_pipe[1]);
  7582.       
  7583.       from_black = fdopen (from_pipe[0], "r");
  7584.       to_black   = fdopen (to_pipe  [1], "w");
  7585.     
  7586.       setbuf (from_black, (char *) NULL);
  7587.       setbuf (to_black  , (char *) NULL);
  7588.       
  7589.       XtAppAddInput (app_context, fileno (from_black), (XtPointer) XtInputReadMask, 
  7590.              (XtInputCallbackProc) receive_data, (XtPointer) from_black);
  7591.       
  7592.       switch (black_player) {
  7593.       case Wally : break;
  7594.       case Gnugo :
  7595.     (void) fprintf (to_black, "\n%d\nw\n", handicap);
  7596.     (void) fflush  (to_black);
  7597.     break;
  7598.       case Human : break;
  7599.       }
  7600.     }
  7601.   }
  7602.  
  7603.   /*
  7604.    *   Start white player program
  7605.    */
  7606.  
  7607.   if (white_player != Human) {
  7608.     pipe (from_pipe);
  7609.     pipe (to_pipe  );
  7610.  
  7611.     if ((white_pid = fork ()) == 0) {
  7612.       fcntl(from_pipe[0], F_SETFL, O_NDELAY);
  7613.  
  7614.       close (0); dup (to_pipe  [0]);
  7615.       close (1); dup (from_pipe[1]);
  7616.       
  7617.       close (to_pipe  [0]);
  7618.       close (to_pipe  [1]);
  7619.       close (from_pipe[0]);
  7620.       close (from_pipe[1]);
  7621.       
  7622.       switch (white_player) {
  7623.       case Gnugo :
  7624.     if (execlp ("gnugo", "gnugo", (char *) NULL) == -1)
  7625.       { fprintf (stderr, "XGoban : can't exec wally\n"); stopGame (); exit (1); }
  7626.     break;
  7627.       case Wally : break;
  7628.       case Human : break;
  7629.       }
  7630.     }
  7631.  
  7632.     if (white_pid == -1) 
  7633.       { fprintf (stderr, "XGoban : fork failed \n"); stopGame (); exit (1); }
  7634.  
  7635.     /*
  7636.      *    XGoban : install pipe with white player
  7637.      */
  7638.  
  7639.     close (to_pipe  [0]);
  7640.     close (from_pipe[1]);
  7641.       
  7642.     from_white = fdopen (from_pipe[0], "r");
  7643.     to_white   = fdopen (to_pipe  [1], "w");
  7644.     
  7645.     setbuf (from_white, (char *) NULL);
  7646.     setbuf (to_white  , (char *) NULL);
  7647.     
  7648.     XtAppAddInput (app_context, fileno (from_white), (XtPointer) XtInputReadMask,
  7649.            (XtInputCallbackProc) receive_data, (XtPointer) from_white);
  7650.     
  7651.     switch (white_player) {
  7652.     case Wally : break;
  7653.     case Human : break;
  7654.     case Gnugo :
  7655.       (void) fprintf (to_white, "\n%d\nb\n", handicap);
  7656.       (void) fflush  (to_white);
  7657.       break;
  7658.     }
  7659.   }
  7660. }
  7661.  
  7662. void stopGame ()
  7663. {
  7664.   if (black_pid != -1) (void) kill (black_pid, SIGKILL);
  7665.   if (white_pid != -1) (void) kill (white_pid, SIGKILL);
  7666.  
  7667.   current_mode = EditMode;
  7668. }
  7669. SHAR_EOF
  7670. fi # end of overwriting check
  7671. if test -f 'blackstone.bm'
  7672. then
  7673.     echo shar: will not over-write existing file "'blackstone.bm'"
  7674. else
  7675. cat << \SHAR_EOF > 'blackstone.bm'
  7676. #define blackstone_width 16
  7677. #define blackstone_height 16
  7678. #define blackstone_x_hot 7
  7679. #define blackstone_y_hot 8
  7680. static char blackstone_bits[] = {
  7681.    0xc0, 0x03, 0xf0, 0x0f, 0xf8, 0x1f, 0xfc, 0x3f, 0xfe, 0x7f, 0xfe, 0x7f,
  7682.    0xff, 0xff, 0xff, 0xff, 0xff, 0xef, 0xff, 0xef, 0xfe, 0x77, 0xfe, 0x7b,
  7683.    0xfc, 0x3c, 0xf8, 0x1f, 0xf0, 0x0f, 0xc0, 0x03};
  7684. SHAR_EOF
  7685. fi # end of overwriting check
  7686. if test -f 'graystone.bm'
  7687. then
  7688.     echo shar: will not over-write existing file "'graystone.bm'"
  7689. else
  7690. cat << \SHAR_EOF > 'graystone.bm'
  7691. #define graystone_width 16
  7692. #define graystone_height 16
  7693. #define graystone_x_hot 7
  7694. #define graystone_y_hot 8
  7695. static char graystone_bits[] = {
  7696.    0xc0, 0x03, 0xb0, 0x0e, 0x58, 0x15, 0xac, 0x2a, 0x56, 0x55, 0xaa, 0x6a,
  7697.    0x55, 0xd5, 0xab, 0xaa, 0x55, 0xd5, 0xab, 0xba, 0x56, 0x5d, 0xaa, 0x6e,
  7698.    0x54, 0x37, 0xa8, 0x1a, 0x70, 0x0d, 0xc0, 0x03};
  7699. SHAR_EOF
  7700. fi # end of overwriting check
  7701. if test -f 'stonemask.bm'
  7702. then
  7703.     echo shar: will not over-write existing file "'stonemask.bm'"
  7704. else
  7705. cat << \SHAR_EOF > 'stonemask.bm'
  7706. #define stonemask_width 16
  7707. #define stonemask_height 16
  7708. #define stonemask_x_hot 7
  7709. #define stonemask_y_hot 8
  7710. static char stonemask_bits[] = {
  7711.    0xc0, 0x03, 0xf0, 0x0f, 0xf8, 0x1f, 0xfc, 0x3f, 0xfe, 0x7f, 0xfe, 0x7f,
  7712.    0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfe, 0x7f, 0xfe, 0x7f,
  7713.    0xfc, 0x3f, 0xf8, 0x1f, 0xf0, 0x0f, 0xc0, 0x03};
  7714. SHAR_EOF
  7715. fi # end of overwriting check
  7716. if test -f 'whitestone.bm'
  7717. then
  7718.     echo shar: will not over-write existing file "'whitestone.bm'"
  7719. else
  7720. cat << \SHAR_EOF > 'whitestone.bm'
  7721. #define whitestone_width 16
  7722. #define whitestone_height 16
  7723. #define whitestone_x_hot 7
  7724. #define whitestone_y_hot 8
  7725. static char whitestone_bits[] = {
  7726.    0xc0, 0x03, 0x30, 0x0c, 0x08, 0x10, 0x04, 0x20, 0x02, 0x40, 0x02, 0x40,
  7727.    0x01, 0x80, 0x01, 0x80, 0x01, 0x90, 0x01, 0x90, 0x02, 0x48, 0x02, 0x44,
  7728.    0x04, 0x23, 0x08, 0x10, 0x30, 0x0c, 0xc0, 0x03};
  7729. SHAR_EOF
  7730. fi # end of overwriting check
  7731. if test -f 'icon.bm'
  7732. then
  7733.     echo shar: will not over-write existing file "'icon.bm'"
  7734. else
  7735. cat << \SHAR_EOF > 'icon.bm'
  7736. #define icon_width 82
  7737. #define icon_height 82
  7738. static char icon_bits[] = {
  7739.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  7740.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  7741.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x01,
  7742.    0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04,
  7743.    0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff,
  7744.    0xff, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40,
  7745.    0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00,
  7746.    0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01,
  7747.    0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04,
  7748.    0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10,
  7749.    0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00,
  7750.    0x20, 0x00, 0x01, 0x04, 0x10, 0xf0, 0x01, 0x01, 0x04, 0x10, 0x00, 0x20,
  7751.    0x00, 0x01, 0x04, 0x10, 0xf8, 0x03, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00,
  7752.    0x01, 0x04, 0x10, 0xfc, 0x07, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01,
  7753.    0x04, 0x10, 0xfc, 0x07, 0x01, 0x04, 0x10, 0x00, 0xf8, 0xff, 0xff, 0xff,
  7754.    0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10,
  7755.    0xfc, 0x06, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x7c,
  7756.    0x07, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0xf8, 0x03,
  7757.    0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0xf0, 0x01, 0x01,
  7758.    0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04,
  7759.    0x10, 0x00, 0x20, 0xc0, 0x07, 0x1f, 0x7c, 0xf0, 0x01, 0x01, 0x04, 0x10,
  7760.    0x00, 0x20, 0x20, 0x88, 0x20, 0x82, 0xf8, 0x03, 0x01, 0x04, 0x10, 0x00,
  7761.    0x20, 0x10, 0x50, 0x40, 0x01, 0xfd, 0x07, 0x01, 0x04, 0x10, 0x00, 0x20,
  7762.    0x10, 0x50, 0x40, 0x01, 0xfd, 0x07, 0x01, 0x04, 0x10, 0x00, 0xf8, 0x1f,
  7763.    0x70, 0xc0, 0x01, 0xff, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x20, 0x10, 0x54,
  7764.    0x50, 0x41, 0xfd, 0x06, 0x01, 0x04, 0x10, 0x00, 0x20, 0x10, 0x52, 0x48,
  7765.    0x21, 0x7d, 0x07, 0x01, 0x04, 0x10, 0x00, 0x20, 0x20, 0x88, 0x20, 0x82,
  7766.    0xf8, 0x03, 0x01, 0x04, 0x10, 0x00, 0x20, 0xc0, 0x07, 0x1f, 0x7c, 0xf0,
  7767.    0x01, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00,
  7768.    0x01, 0x04, 0x10, 0x00, 0x20, 0xc0, 0x07, 0x1f, 0x7c, 0xf0, 0xc1, 0x07,
  7769.    0x04, 0x10, 0x00, 0x20, 0x20, 0x88, 0x3f, 0xfe, 0x08, 0xe2, 0x0f, 0x04,
  7770.    0x10, 0x00, 0x20, 0x10, 0xd0, 0x7f, 0xff, 0x05, 0xf4, 0x1f, 0x04, 0x10,
  7771.    0x00, 0x20, 0x10, 0xd0, 0x7f, 0xff, 0x05, 0xf4, 0x1f, 0x04, 0x10, 0x00,
  7772.    0xf8, 0x1f, 0xf0, 0xff, 0xff, 0x07, 0xfc, 0xff, 0xff, 0x7f, 0x00, 0x20,
  7773.    0x10, 0xd4, 0x6f, 0xbf, 0x05, 0xf5, 0x1b, 0x04, 0x10, 0x00, 0x20, 0x10,
  7774.    0xd2, 0x77, 0xdf, 0x85, 0xf4, 0x1d, 0x04, 0x10, 0x00, 0x20, 0x20, 0x88,
  7775.    0x3f, 0xfe, 0x08, 0xe2, 0x0f, 0x04, 0x10, 0x00, 0x20, 0xc0, 0x07, 0x1f,
  7776.    0x7c, 0xf0, 0xc1, 0x07, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10,
  7777.    0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0xf0,
  7778.    0x01, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x08, 0x02,
  7779.    0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x04, 0x04, 0x01,
  7780.    0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x04, 0x04, 0x01, 0x04,
  7781.    0x10, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x07, 0xfc, 0xff, 0xff, 0x7f,
  7782.    0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x04, 0x05, 0x01, 0x04, 0x10, 0x00,
  7783.    0x20, 0x00, 0x01, 0x04, 0x10, 0x84, 0x04, 0x01, 0x04, 0x10, 0x00, 0x20,
  7784.    0x00, 0x01, 0x04, 0x10, 0x08, 0x02, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00,
  7785.    0x01, 0x04, 0x10, 0xf0, 0x01, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01,
  7786.    0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x1f,
  7787.    0x7c, 0x40, 0x00, 0x01, 0x1f, 0x10, 0x00, 0x20, 0x00, 0x81, 0x3f, 0xfe,
  7788.    0x40, 0x00, 0x81, 0x3f, 0x10, 0x00, 0x20, 0x00, 0xc1, 0x7f, 0xff, 0x41,
  7789.    0x00, 0xc1, 0x7f, 0x10, 0x00, 0x20, 0x00, 0xc1, 0x7f, 0xff, 0x41, 0x00,
  7790.    0xc1, 0x7f, 0x10, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
  7791.    0xff, 0x7f, 0x00, 0x20, 0x00, 0xc1, 0x6f, 0xbf, 0x41, 0x00, 0xc1, 0x6f,
  7792.    0x10, 0x00, 0x20, 0x00, 0xc1, 0x77, 0xdf, 0x41, 0x00, 0xc1, 0x77, 0x10,
  7793.    0x00, 0x20, 0x00, 0x81, 0x3f, 0xfe, 0x40, 0x00, 0x81, 0x3f, 0x10, 0x00,
  7794.    0x20, 0x00, 0x01, 0x1f, 0x7c, 0x40, 0x00, 0x01, 0x1f, 0x10, 0x00, 0x20,
  7795.    0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00,
  7796.    0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01,
  7797.    0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04,
  7798.    0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10,
  7799.    0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0xff,
  7800.    0xff, 0xff, 0xff, 0x7f, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00,
  7801.    0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01,
  7802.    0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04,
  7803.    0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10,
  7804.    0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00,
  7805.    0x20, 0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20,
  7806.    0x00, 0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00,
  7807.    0x01, 0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01,
  7808.    0x04, 0x10, 0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0xf8, 0xff, 0xff, 0xff,
  7809.    0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10,
  7810.    0x40, 0x00, 0x01, 0x04, 0x10, 0x00, 0x20, 0x00, 0x01, 0x04, 0x10, 0x40,
  7811.    0x00, 0x01, 0x04, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  7812.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  7813.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  7814.    0x00, 0x00};
  7815. SHAR_EOF
  7816. fi # end of overwriting check
  7817. if test -f 'Goban.h'
  7818. then
  7819.     echo shar: will not over-write existing file "'Goban.h'"
  7820. else
  7821. cat << \SHAR_EOF > 'Goban.h'
  7822. /****************************************************************************************************************
  7823.  *
  7824.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  7825.  *
  7826.  *  This program is distributed in the hope that it will be useful.
  7827.  *  Use and copying of this software and preparation of derivative works
  7828.  *  based upon this software are permitted, so long as the following
  7829.  *  conditions are met:
  7830.  *       o credit to the authors is acknowledged following current
  7831.  *         academic behaviour
  7832.  *       o no fees or compensation are charged for use, copies, or
  7833.  *         access to this software
  7834.  *       o this copyright notice is included intact.
  7835.  *  This software is made available AS IS, and no warranty is made about 
  7836.  *  the software or its performance. 
  7837.  * 
  7838.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  7839.  *  Send them to    dumesnil@etca.fr   or to:
  7840.  *       
  7841.  *       Antoine de Maricourt
  7842.  *       ETCA CREA-SP
  7843.  *       16 bis, avenue Prieur de la Cote d'Or
  7844.  *       94114 Arcueil Cedex
  7845.  *       France
  7846.  */
  7847.  
  7848. #ifndef _Goban_h
  7849. #define _Goban_h
  7850.  
  7851. /* Resources:
  7852.  
  7853.  Name               Class          RepType        Default Value
  7854.  ----               -----          -------        -------------
  7855.  autoRedisplay         AutoRedisplay      Boolean         True
  7856.  background           Background      Pixel          XtDefaultBackground
  7857.  blackStoneBackground  Background      Pixel          black
  7858.  blackStoneBorder      BorderColor      Pixel          black
  7859.  blackStoneForeground  Foreground      Pixel          white
  7860.  border               BorderColor      Pixel          XtDefaultForeground
  7861.  borderWidth           BorderWidth      Dimension      1
  7862.  cursor                Cursor             Integer         GbGrayCursor
  7863.  destroyCallback       Callback          Pointer      NULL
  7864.  displayCoordinates    DisplayCoordinates Boolean      True
  7865.  font                  Font               XFontStruct*    fixed
  7866.  foreground            Foreground         Pixel           XtDefaultForeground
  7867.  gameSize              Size               Dimension       19
  7868.  height               Height          Dimension      computed at create
  7869.  mappedWhenManaged     MappedWhenManaged  Boolean      True
  7870.  pointSize             Size               Dimension       24
  7871.  sensitive           Sensitive      Boolean      True
  7872.  viewBottom            Position           Position        computed at create
  7873.  viewLeft              Position           Position        computed at create
  7874.  viewRight             Position           Position        computed at create
  7875.  viewTop               Position           Position        computed at create
  7876.  whiteStoneBackground  Background      Pixel          white
  7877.  whiteStoneBorder      BorderColor      Pixel          black
  7878.  whiteStoneForeground  Foreground      Pixel          black
  7879.  width               Width          Dimension      computed at create
  7880.  x               Position          Position      0
  7881.  y               Position          Position      0
  7882. */
  7883.  
  7884. /* define any special resource names here that are not in <X11/StringDefs.h> */
  7885.  
  7886. #define XtNautoRedisplay         "autoRedisplay"
  7887. #define XtNviewBottom            "viewBottom"
  7888.  
  7889. #ifndef XtNcursor
  7890. #define XtNcursor                "cursor"
  7891. #endif
  7892.  
  7893. #define XtNgameSize              "gameSize"
  7894. #define XtNviewLeft              "viewLeft"
  7895. #define XtNdisplayCoordinates    "displayCoordinates"
  7896. #define XtNpointSize             "pointSize"
  7897. #define XtNviewRight             "viewRight"
  7898. #define XtNviewTop               "viewTop"
  7899. #define XtNblackStoneBorder      "blackStoneBorder"
  7900. #define XtNblackStoneForeground  "blackStoneForeground"
  7901. #define XtNblackStoneBackground  "blackStoneBackground"
  7902. #define XtNwhiteStoneBorder      "whiteStoneBorder"
  7903. #define XtNwhiteStoneForeground  "whiteStoneForeground"
  7904. #define XtNwhiteStoneBackground  "whiteStoneBackground"
  7905.  
  7906. #define XtCAutoRedisplay         "AutoRedisplay"
  7907. #define XtCDisplayCoordinates    "DisplayCoordinates"
  7908. #define XtCSize                  "Size"
  7909.  
  7910. #define XtEgbWhiteStone          "white"
  7911. #define XtEgbBlackStone          "black"
  7912. #define XtEgbGrayStone           "gray"
  7913.  
  7914. /* declare specific GobanWidget class and instance datatypes */
  7915.  
  7916. typedef struct _GobanClassRec*     GobanWidgetClass;
  7917. typedef struct _GobanRec*     GobanWidget;
  7918.  
  7919. /* declare the class constant */
  7920.  
  7921. extern WidgetClass gobanWidgetClass;
  7922.  
  7923. /* cursors */
  7924.  
  7925. #define GbCGrayStone         256
  7926. #define GbCBlackStone        257
  7927. #define GbCWhiteStone        258
  7928.  
  7929. /* special marks */
  7930.  
  7931. #define GbMSquareMark        1
  7932. #define GbMTriangleMark      2
  7933. #define GbMVCrossMark        3
  7934. #define GbMDCrossMark        4
  7935. #define GbMDiamondMark       5
  7936.  
  7937. /* colors */
  7938.  
  7939. typedef enum { GbEmptyPoint, GbBlackStone, GbWhiteStone } GbPointState;
  7940.  
  7941. /* user functions */
  7942.  
  7943. #define GbRemoveMark(w,x,y)  GbSetMark (w, x, y, 0, 0)
  7944.  
  7945. extern void GbRedisplayBoard ( /* Widget w */ );
  7946. extern void GbClearBoard     ( /* Widget w */ );
  7947. extern void GbSetPoint       ( /* Widget w, Position x, Position y, GbPointState color */ );
  7948. extern void GbSetNum         ( /* Widget w, Position x, Position y, int num   */ );
  7949. extern void GbSetMark        ( /* Widget w, Position x, Position y, unsigned char mark1, unsigned char mark2 */ );
  7950.  
  7951. extern Boolean GbGetPositionFromStone ( /* Widget w, Position *x, Position *y */ );
  7952. extern Boolean GbGetStoneFromPosition ( /* Widget w, Position *x, Position *y */ );
  7953.  
  7954. #endif /* _Goban_h */
  7955.  
  7956. SHAR_EOF
  7957. fi # end of overwriting check
  7958. if test -f 'GobanP.h'
  7959. then
  7960.     echo shar: will not over-write existing file "'GobanP.h'"
  7961. else
  7962. cat << \SHAR_EOF > 'GobanP.h'
  7963. /****************************************************************************************************************
  7964.  *
  7965.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  7966.  *
  7967.  *  This program is distributed in the hope that it will be useful.
  7968.  *  Use and copying of this software and preparation of derivative works
  7969.  *  based upon this software are permitted, so long as the following
  7970.  *  conditions are met:
  7971.  *       o credit to the authors is acknowledged following current
  7972.  *         academic behaviour
  7973.  *       o no fees or compensation are charged for use, copies, or
  7974.  *         access to this software
  7975.  *       o this copyright notice is included intact.
  7976.  *  This software is made available AS IS, and no warranty is made about 
  7977.  *  the software or its performance. 
  7978.  * 
  7979.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  7980.  *  Send them to    dumesnil@etca.fr   or to:
  7981.  *       
  7982.  *       Antoine de Maricourt
  7983.  *       ETCA CREA-SP
  7984.  *       16 bis, avenue Prieur de la Cote d'Or
  7985.  *       94114 Arcueil Cedex
  7986.  *       France
  7987.  */
  7988.  
  7989. #ifndef _GobanP_h
  7990. #define _GobanP_h
  7991.  
  7992. #include "Goban.h"
  7993.  
  7994. /* include superclass private header file */
  7995. #include <X11/CoreP.h>
  7996.  
  7997. /* define unique representation types not found in <X11/StringDefs.h> */
  7998.  
  7999. #define XtRGobanResource "GobanResource"
  8000.  
  8001. typedef struct {
  8002.     int empty;
  8003. } GobanClassPart;
  8004.  
  8005. typedef struct _GobanClassRec {
  8006.     CoreClassPart    core_class;
  8007.     GobanClassPart    goban_class;
  8008. } GobanClassRec;
  8009.  
  8010. extern GobanClassRec gobanClassRec;
  8011.  
  8012. typedef struct {
  8013.   unsigned int free  : 1;
  8014.   unsigned int black : 1;
  8015.   unsigned int mark1 : 8;
  8016.   unsigned int mark2 : 8;
  8017.   unsigned int num   : 10;
  8018. } PointState;
  8019.  
  8020. typedef struct {
  8021.     /* resources */
  8022.  
  8023.   Boolean       auto_redisplay;
  8024.   Position      bottom;
  8025.   int           cursor;
  8026.   XFontStruct  *font;
  8027.   Pixel         foreground;
  8028.   Dimension     game_size;
  8029.   Position      left;
  8030.   Boolean       display_coordinates;
  8031.   Dimension     point_size;
  8032.   Position      right;
  8033.   Position      top;
  8034.  
  8035.     /* private state */
  8036.  
  8037.   PointState    points[20][20];
  8038.   Position      x_offset;
  8039.   Position      y_offset;
  8040.  
  8041.   Pixmap        black_stone;
  8042.   Pixmap        board;
  8043.   Pixmap        gray_stone;
  8044.   Pixmap        mouse_mask;
  8045.   Pixmap        picture;
  8046.   Pixmap        white_stone;
  8047.  
  8048.   GC            background_gc;
  8049.   GC            foreground_gc;
  8050.   GC            black_fg_gc;
  8051.   GC            black_bg_gc;
  8052.   GC            black_bd_gc;
  8053.   GC            white_fg_gc;
  8054.   GC            white_bg_gc;
  8055.   GC            white_bd_gc;
  8056.   GC            copy_gc;
  8057.  
  8058.   Cursor        black_cursor;
  8059.   Cursor        gray_cursor;
  8060.   Cursor        white_cursor;
  8061.   Cursor        font_cursor;
  8062.  
  8063.   Pixel         white_bg;
  8064.   Pixel         white_fg;
  8065.   Pixel         white_bd;
  8066.   Pixel         black_bg;
  8067.   Pixel         black_fg;
  8068.   Pixel         black_bd;
  8069. } GobanPart;
  8070.  
  8071. typedef struct _GobanRec {
  8072.     CorePart    core;
  8073.     GobanPart    goban;
  8074. } GobanRec;
  8075.  
  8076. #define Min(x,y)      ((x) > (y) ? (y) : (x))
  8077. #define Max(x,y)      ((x) > (y) ? (x) : (y))
  8078.  
  8079. #endif /* _GobanP_h */
  8080. SHAR_EOF
  8081. fi # end of overwriting check
  8082. if test -f 'sg.h'
  8083. then
  8084.     echo shar: will not over-write existing file "'sg.h'"
  8085. else
  8086. cat << \SHAR_EOF > 'sg.h'
  8087. /****************************************************************************************************************
  8088.  *
  8089.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  8090.  *
  8091.  *  This program is distributed in the hope that it will be useful.
  8092.  *  Use and copying of this software and preparation of derivative works
  8093.  *  based upon this software are permitted, so long as the following
  8094.  *  conditions are met:
  8095.  *       o credit to the authors is acknowledged following current
  8096.  *         academic behaviour
  8097.  *       o no fees or compensation are charged for use, copies, or
  8098.  *         access to this software
  8099.  *       o this copyright notice is included intact.
  8100.  *  This software is made available AS IS, and no warranty is made about 
  8101.  *  the software or its performance. 
  8102.  * 
  8103.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  8104.  *  Send them to    dumesnil@etca.fr   or to:
  8105.  *       
  8106.  *       Antoine de Maricourt
  8107.  *       ETCA CREA-SP
  8108.  *       16 bis, avenue Prieur de la Cote d'Or
  8109.  *       94114 Arcueil Cedex
  8110.  *       France
  8111.  */
  8112.  
  8113. #ifndef _sg_h_
  8114. #define _sg_h_
  8115.  
  8116. #include <stdio.h>
  8117. #include <ctype.h>
  8118. #include <string.h>
  8119. #include <malloc.h>
  8120.  
  8121. #define SG_Black              1            /*  Done  */
  8122. #define SG_White              2            /*  Done  */
  8123. #define SG_Comment            3            /*  Done  */
  8124. #define SG_nodeName           4            /*  Done  */
  8125. #define SG_nodeValue          5
  8126. #define SG_CHeck              6
  8127. #define SG_GoodBlack          7
  8128. #define SG_GoodWhite          8
  8129. #define SG_TEsuji             9
  8130. #define SG_BadMove           10
  8131. #define SG_BlackLeft         11            /*  Done  */
  8132. #define SG_WhiteLeft         12            /*  Done  */
  8133. #define SG_FiGure            13
  8134. #define SG_AddBlack          14            /*  Done  */
  8135. #define SG_AddWhite          15            /*  Done  */
  8136. #define SG_AddEmpty          16            /*  Done  */
  8137. #define SG_PLayer            17
  8138. #define SG_GameName          18            /*  Done  */
  8139. #define SG_GameComment       19            /*  Done  */
  8140. #define SG_EVent             20            /*  Done  */
  8141. #define SG_ROund             21            /*  Done  */
  8142. #define SG_DaTe              22            /*  Done  */
  8143. #define SG_PlaCe             23            /*  Done  */
  8144. #define SG_PlayerBlack       24            /*  Done  */
  8145. #define SG_PlayerWhite       25            /*  Done  */
  8146. #define SG_REsult            26            /*  Done  */
  8147. #define SG_USer              27            /*  Done  */
  8148. #define SG_TiMe              28            /*  Done  */
  8149. #define SG_SOurce            29            /*  Done  */
  8150. #define SG_GaMe              30
  8151. #define SG_SiZe              31
  8152. #define SG_VieW              32            /*  Done  */
  8153. #define SG_BlackSpec         33
  8154. #define SG_WhiteSpec         34
  8155. #define SG_EvaLuation        35
  8156. #define SG_EXpected          36
  8157. #define SG_SeLected          37
  8158. #define SG_Marked            38
  8159. #define SG_Letters           39
  8160. #define SG_BlackRank         40            /*  Done  */
  8161. #define SG_WhiteRank         41            /*  Done  */
  8162. #define SG_HAndicap          42            /*  Done  */
  8163. #define SG_KoMi              43            /*  Done  */
  8164. #define SG_TerritoryBlack    44
  8165. #define SG_TerritoryWhite    45
  8166. #define SG_SeCure            46
  8167. #define SG_ReGion            47
  8168. #define SG_KO                48
  8169. #define SG_Illegal           49
  8170.  
  8171. #define SG_MaxID             SG_Illegal
  8172.  
  8173. #define SG_unVieW            SG_Illegal + 1
  8174. #define SG_ko                SG_Illegal + 2
  8175.  
  8176. typedef struct _SG_Property {
  8177.   int id;
  8178.  
  8179.   union {
  8180.     long           ivalue;
  8181.     unsigned char *pvalue;
  8182.   } data;
  8183.  
  8184.   struct _SG_Property *next;
  8185.  
  8186. } SG_Property, *SG_PropertyPtr;
  8187.  
  8188. typedef struct _SG_Node {
  8189.  
  8190.   short             type;
  8191.  
  8192.   short             num;
  8193.   char              color;
  8194.   char              x;
  8195.   char              y;
  8196.   char              player;
  8197.  
  8198.   unsigned char    *setup;
  8199.   SG_PropertyPtr    property;
  8200.     
  8201.   struct _SG_Node  *up;
  8202.   struct _SG_Node  *down;
  8203.   struct _SG_Node  *left;
  8204.   struct _SG_Node  *right;
  8205.  
  8206. } SG_Node, *SG_NodePtr;  
  8207.  
  8208. #define SG_NoType               0
  8209. #define SG_EventType            1
  8210. #define SG_MoveType             2
  8211. #define SG_DiagramType          4
  8212.  
  8213. #define SG_EmptyPoint           0
  8214. #define SG_Border               1
  8215. #define SG_WhiteStone           2
  8216. #define SG_BlackStone           3
  8217.  
  8218. #define SG_Event                0
  8219. #define SG_Move                 1
  8220. #define SG_VariationMove        2
  8221. #define SG_Diagram              3
  8222. #define SG_VariationDiagram     4
  8223.  
  8224. #define SG_SetupProperty        1
  8225. #define SG_CommentProperty      2
  8226. #define SG_GameNameProperty     3
  8227.  
  8228. #define SG_EOS                  0xff
  8229.  
  8230. #define SG_SETMASK              ((1 << 7) | (1 << 6))
  8231. #define SG_SETB                 ((1 << 7) | (1 << 6))
  8232. #define SG_SETW                 (1 << 7)
  8233. #define SG_SETEB                (1 << 6)
  8234. #define SG_SETEW                0
  8235. #define SG_SETE                 SG_SETEB
  8236.  
  8237. #define SG_OK                   0
  8238. #define SG_PlaySuicide          1
  8239. #define SG_PlayKo               2
  8240. #define SG_PlayIllegal          3
  8241.  
  8242. #define SG_EOFERR               1
  8243. #define SG_NSTERR               2
  8244. #define SG_NCLERR               3
  8245. #define SG_NCTERR               4
  8246. #define SG_NDGERR               5
  8247.  
  8248. typedef struct {
  8249.   char             *keyword;
  8250.   char             *print;
  8251.   int               id;
  8252.   int               node_id;
  8253. } SG_KWData;
  8254.  
  8255. extern SG_KWData                sg_keywords[];
  8256.  
  8257. extern SG_NodePtr               SG_MakeNode     ();
  8258. extern SG_PropertyPtr           SG_GetProperty  ();
  8259. extern void                     SG_MakeProperty ();
  8260. extern void                     SG_FreeNode     ();
  8261. extern SG_NodePtr               SG_RemoveNode   ();
  8262. extern SG_NodePtr               SG_ReadTree     ();
  8263. extern int                      SG_WriteTree    ();
  8264.  
  8265. extern void                     SG_strcat       ();
  8266. extern void                     SG_strcpy       ();
  8267.  
  8268. #endif    /* _sg_h_ */
  8269. SHAR_EOF
  8270. fi # end of overwriting check
  8271. if test -f 'xgoban.h'
  8272. then
  8273.     echo shar: will not over-write existing file "'xgoban.h'"
  8274. else
  8275. cat << \SHAR_EOF > 'xgoban.h'
  8276. /****************************************************************************************************************
  8277.  *
  8278.  *  Copyright (c) 1992 by Antoine Dumesnil de Maricourt. All rights reserved.
  8279.  *
  8280.  *  This program is distributed in the hope that it will be useful.
  8281.  *  Use and copying of this software and preparation of derivative works
  8282.  *  based upon this software are permitted, so long as the following
  8283.  *  conditions are met:
  8284.  *       o credit to the authors is acknowledged following current
  8285.  *         academic behaviour
  8286.  *       o no fees or compensation are charged for use, copies, or
  8287.  *         access to this software
  8288.  *       o this copyright notice is included intact.
  8289.  *  This software is made available AS IS, and no warranty is made about 
  8290.  *  the software or its performance. 
  8291.  * 
  8292.  *  Bug descriptions, use reports, comments or suggestions are welcome.
  8293.  *  Send them to    dumesnil@etca.fr   or to:
  8294.  *       
  8295.  *       Antoine de Maricourt
  8296.  *       ETCA CREA-SP
  8297.  *       16 bis, avenue Prieur de la Cote d'Or
  8298.  *       94114 Arcueil Cedex
  8299.  *       France
  8300.  */
  8301.  
  8302. #ifndef _xgoban_h_
  8303. #define _xgoban_h_
  8304.  
  8305. #include <X11/Intrinsic.h>
  8306. #include <X11/StringDefs.h>
  8307.  
  8308. #include "sg.h"
  8309. #include "Goban.h"
  8310.  
  8311. typedef enum { Human, Wally, Gnugo } Player;
  8312. typedef enum { EditMode, DiagramMode, SizeMode, ViewMode, PlayMode, MailMode } Mode;
  8313.  
  8314. #define ApplicationName           "XGoban"
  8315.  
  8316. #define LoadDialog                2
  8317. #define EditDialog                3
  8318. #define SaveBeforeQuitDialog      5
  8319. #define SaveAsAndQuitDialog       6
  8320. #define ReallyQuitDialog          7
  8321. #define SaveBeforeLoadDialog      8
  8322. #define SaveAsAndLoadDialog       9
  8323. #define SaveAsDialog              10
  8324. #define CantSaveRetryDialog       11
  8325. #define CantLoadRetryDialog       12
  8326. #define HelpDialog                13
  8327.  
  8328. #define PlayerNodeErrorWarning    14
  8329. #define MemoryErrorDialog         15
  8330. #define CantOpenFileDialog        16
  8331. #define IllegalMoveDialog         17
  8332. #define SuicideMoveDialog         18
  8333. #define KoMoveDialog              19
  8334. #define BadHandicapWarning        20
  8335. #define RemainingStonesWarning    21
  8336. #define ReadOnlyWarning           22
  8337. #define DiagramBadNodeWarning     23
  8338. #define SizeBadNodeWarning        24
  8339. #define ReallyDeleteDialog        25
  8340. #define PlayerMoveErrorWarning    26
  8341. #define WallyWhitePlayWarning     27
  8342. #define WallyBadSizeWarning       28
  8343. #define WallyBadHandicapWarning   29
  8344. #define StopGameDialog            30
  8345. #define RemoveStonesDialog        31
  8346. #define BlackPassDialog           32
  8347. #define WhitePassDialog           33
  8348. #define NodeNameDialog            34
  8349. #define MailNoMoveDialog          35
  8350. #define MailConfirmMoveDialog     36
  8351. #define StopGameBeforeQuitDialog  37  
  8352.  
  8353. #define ReplaceNodeDialog         40
  8354.  
  8355. #define BadHandicapMsg            " Don't know how to place \n    handicap stones      \n  for this size of board "
  8356. #define RemainingStonesMsg        "  Don't know how to place  \n remaining handicap stones "
  8357. #define PlayerNodeErrorMsg        " Player can be changed only \n  at Event or Diagram node  "
  8358. #define PlayerMoveErrorMsg        " Following  move is already \n done : can't change Player "
  8359. #define IllegalMoveMsg            " This move is illegal "
  8360. #define KoMoveMsg                 " You can't retake the \n        ko now        "
  8361. #define SuicideMoveMsg            " Suicide is not allowed "
  8362. #define DiagramBadNodeMsg         " Diagram can't be edited \n      at Move node       "
  8363. #define SizeBadNodeMsg            " Goban can be resized \n  only at Event node  "
  8364. #define CantOpenFileMsg           " Can't open file "
  8365. #define WallyWhitePlayMsg         " Wally only plays black "
  8366. #define WallyBadSizeMsg           " Wally plays on a 9x9, \n 13x13 or 19x19 board  "
  8367. #define WallyBadHandicapMsg       " Wally plays with no or \n   9 handicap stones    "
  8368. #define BlackPassMsg              " Black passes "
  8369. #define WhitePassMsg              " White passes "
  8370.  
  8371. #define LoadFileMsg               "Load file :"
  8372. #define SaveFileMsg               "Save file :"
  8373. #define EditFileMsg               "Edit file ?"
  8374. #define ReplaceNodeMsg            "Replace current node ?"
  8375. #define ReallyQuitMsg             "Really quit ?"
  8376. #define ReallyDeleteMsg           "Really delete current node ?"
  8377. #define SaveFileBeforeMsg         "Save file before ?"
  8378. #define StopGameMsg               "Stop current game ?"
  8379. #define RemoveStonesMsg           "Remove further moves ?"
  8380. #define NodeNameMsg               "Enter node name :"
  8381. #define MailNoMoveMsg             "No move done : really quit ?"
  8382. #define MailConfirmMoveMsg        "Confirm your move ?"
  8383.  
  8384. #define YesLabel                  "Yes"
  8385. #define NoLabel                   "No"
  8386. #define CancelLabel               "Cancel"
  8387. #define SaveLabel                 "Save"
  8388. #define LoadLabel                 "Load"
  8389. #define EditLabel                 "Edit"
  8390. #define QuitLabel                 "Quit"
  8391. #define ReplaceLabel              "Replace"
  8392. #define OkLabel                   "Ok"
  8393. #define DeleteLabel               "Delete"
  8394. #define RemoveLabel               "Remove"
  8395. #define StopLabel                 "Stop"
  8396. #define ConfirmLabel              "Confirm"
  8397.  
  8398. #define ReadOnlyMsg               " File is read-only "
  8399. #define MemoryErrorMsg            " Memory error "
  8400.  
  8401. #define UsageString               "\
  8402. XGoban version 1.0\n\n\
  8403. Usage : \n\
  8404.    xgoban [ <toolkit options> ... ] [ <options> ... ] [ <file> ]  \n\n\
  8405. where options include : \n\
  8406.    -help                         print out this message  \n\
  8407.    -size         <size>          set goban size          \n\
  8408.    -handicap     <handicap>      setup handicap stones   \n\
  8409.    -path         <path>          path for smart-go files \n\
  8410.    -pointSize    <pointSize>     size of points in pixels\n\
  8411.    -silent                       turn off bell           \n\
  8412.    -nonum                        turn off auto numbering \n\
  8413.    -versatile                    turn off strict moves   \n\
  8414.    -black        <blackPlayer>   black player            \n\
  8415.    -white        <whitePlayer>   white player            \n\
  8416.    [-short | -s]                 short save mode         \n\
  8417.    [-mail  | -m] <filename>      mail mode               \n\
  8418. \n"
  8419.  
  8420. #define HelpString                "\n\
  8421.                XGoban 1.0    by  A. de Maricourt  (c) 1992                    \n\
  8422. \n\
  8423. \n\
  8424.    a      : Append stones to diagram       Bt1    : select variation          \n\
  8425.    b      : Black to play                           or move forward           \n\
  8426.    d      : select Diagram                 Bt2    : select diagram            \n\
  8427.    e      : Edit current file              Bt3    : move backward             \n\
  8428.    l      : Load file                                                         \n\
  8429.    p      : Pass                           S-Bt1  : make next move            \n\
  8430.    q      : Quit                           S-Bt3  : delete move               \n\
  8431.    s      : Save                                                              \n\
  8432.    v      : View                           CS-Bt1 : make variation move       \n\
  8433.    w      : White to play                  CS-Bt2 : make variation diagram    \n\
  8434.    z      : siZe                                                              \n\
  8435.    >      : move forward                   C-Bt1  : add letter                \n\
  8436.    <      : move backward                  C-Bt2  : add mark                  \n\
  8437.    }      : next comment                   C-Bt3  : delete letter             \n\
  8438.    {      : previous comment                                                  \n\
  8439.    ]      : next variation branch        diagram editing :                    \n\
  8440.    [      : previous variation branch      Bt1    : add black stone           \n\
  8441.    ?      : help                           Bt2    : add white stone           \n\
  8442.    i      : event Informations             Bt3    : remove stone              \n\
  8443.    CS-P   : make variation pass            Esc    : diagram done              \n\
  8444.  \n\
  8445.                    Press any key or click to dismiss ...      \n\
  8446. \n"
  8447.  
  8448. #define Max(x,y)                  ((x)>(y)?(x):(y))
  8449. #define Min(x,y)                  ((x)>(y)?(y):(x))
  8450. #define Abs(x)                    ((x)>0?(x):-(x))
  8451.  
  8452. extern Widget      w_toplevel;
  8453. extern Widget      w_goban;
  8454. extern Widget      w_menu;
  8455. extern Widget      c_toplevel;
  8456. extern Widget      c_comment;
  8457. extern Widget      w_second_toplevel;
  8458. extern Widget      w_second_form;
  8459. extern Widget      w_second_goban;
  8460.  
  8461. extern SG_NodePtr  tree;
  8462. extern SG_NodePtr  current_node;
  8463. extern SG_NodePtr  mail_node;
  8464.  
  8465. extern Mode        current_mode;
  8466.  
  8467. extern Player      black_player;
  8468. extern Player      white_player;
  8469. extern int         handicap;
  8470. extern int         board_size;
  8471. extern int         second_player;
  8472.  
  8473. extern Boolean     edit;
  8474. extern Boolean     modified;
  8475. extern int         beep;
  8476. extern Boolean     autonum;
  8477. extern Boolean     strict;
  8478. extern Boolean     short_print;
  8479.  
  8480. extern char        file_name[512];
  8481. extern char        mail_file_name[512];
  8482. extern char       *path;
  8483.  
  8484. extern Boolean     delete_confirm;
  8485.  
  8486. extern void             PopupDialog      ();
  8487. extern void             makeDialogWindow ();
  8488. extern void             makeEventWindow  ();
  8489.  
  8490. extern void             CenterWindow    ();
  8491. extern Boolean          LoadFile        ();
  8492. extern Boolean          SaveFile        ();
  8493. extern void             ShowCursor      ();
  8494.  
  8495.  
  8496. extern void             ShowTmpProperty ();
  8497. extern void             HideTmpProperty ();
  8498. extern void             ShowProperty    ();
  8499. extern void             HideProperty    ();
  8500.  
  8501. extern void             Edit            ();
  8502.  
  8503. extern int              Play            ();
  8504. extern void             Unplay          ();
  8505. extern void             StartDiagram    ();
  8506. extern void             AddStone        ();
  8507. extern unsigned char   *EndDiagram      ();
  8508.  
  8509. extern void             signalMove      ();
  8510. extern void             stopGame        ();
  8511. extern void             startGame       ();
  8512.  
  8513.  
  8514. #define RedisplayBoard() { GbRedisplayBoard (w_goban); if (w_second_goban != NULL) GbRedisplayBoard (w_second_goban); }
  8515. #endif
  8516. SHAR_EOF
  8517. fi # end of overwriting check
  8518. if test -f 'Goban.doc'
  8519. then
  8520.     echo shar: will not over-write existing file "'Goban.doc'"
  8521. else
  8522. cat << \SHAR_EOF > 'Goban.doc'
  8523. Goban Widget 
  8524. ------------
  8525.  
  8526.  The Goban widget displays a full or partial go board within a rectangular area and 
  8527.  allows an application to put or remove stones on it. The application can also draw 
  8528.  numbers on stones, and marks (consisting of a one or two characters string) on stones 
  8529.  or empty points. It has no knowledge of the game and thus doesn't remove dead stones 
  8530.  if any (it is the application's responsability).
  8531.  
  8532.  For every position specification, the coordinate system uses an x axis going from left
  8533.  to right, and an y axis going from bottom to top.
  8534.  
  8535. Resources
  8536. ---------
  8537.  
  8538.  Name               Class          RepType        Default Value
  8539.  ----               -----          -------        -------------
  8540.  autoRedisplay         AutoRedisplay      Boolean         True
  8541.  background           Background      Pixel          XtDefaultBackground
  8542.  blackStoneBackground  Background      Pixel          black
  8543.  blackStoneBorder      BorderColor      Pixel          black
  8544.  blackStoneForeground  Foreground      Pixel          white
  8545.  border               BorderColor      Pixel          XtDefaultForeground
  8546.  borderWidth           BorderWidth      Dimension      1
  8547.  cursor                Cursor             Integer         GbGrayCursor
  8548.  destroyCallback       Callback          Pointer      NULL
  8549.  displayCoordinates    DisplayCoordinates Boolean      True
  8550.  font                  Font               XFontStruct*    fixed
  8551.  foreground            Foreground         Pixel           XtDefaultForeground
  8552.  gameSize              Size               Dimension       19
  8553.  height               Height          Dimension      computed at create
  8554.  mappedWhenManaged     MappedWhenManaged  Boolean      True
  8555.  pointSize             Size               Dimension       24
  8556.  sensitive           Sensitive      Boolean      True
  8557.  viewBottom            Position           Position        computed at create
  8558.  viewLeft              Position           Position        computed at create
  8559.  viewRight             Position           Position        computed at create
  8560.  viewTop               Position           Position        computed at create
  8561.  whiteStoneBackground  Background      Pixel          white
  8562.  whiteStoneBorder      BorderColor      Pixel          black
  8563.  whiteStoneForeground  Foreground      Pixel          black
  8564.  width               Width          Dimension      computed at create
  8565.  x               Position          Position      0
  8566.  y               Position          Position      0
  8567.  
  8568.  autoRedisplay          If this resource is True, then all changes on the widget (put or remove
  8569.               stones, put numbers or marks) will be immediatly flushed to the screen.
  8570.               This can be set to False in conjonction with GbRedisplay in order to 
  8571.               improve the speed when displaying a position.
  8572.  
  8573.  background          As usual.
  8574.  backgroundPixmap     As usual.
  8575.  
  8576.  blackStoneBackground This color will be used to fill the black stones (usually black)
  8577.  blackStoneBorder     This color will be used to draw a circle arround the black stones. This is
  8578.                       usefull with white stones to delimit the circumference of the stone.
  8579.  blackStoneForeground This color will be used to draw marks and numbers on black stones.
  8580.  
  8581.  border              As usual.
  8582.  borderWidth          As usual.
  8583.  
  8584.  
  8585.  cursor              The cursor that will be displayed : should be GbCGrayStone, GbCWhiteStone
  8586.               or GbCBlackStone or a valid cursorFont ID.
  8587.  
  8588.  destroyCallback      As usual.
  8589.  
  8590.  font              The font that will be used to put numbers and marks on the board and to
  8591.               display the coordinate marks.
  8592.  
  8593.  foreground          As usual.
  8594.  
  8595.  gameSize          The board size : board is always square and its size must range between
  8596.               2 and 19.
  8597.  
  8598.  height              As usual.
  8599.  
  8600.  mappedWhenManaged    As usual.
  8601.  
  8602.  displayCoordinates   If this resource is True, then the coordinate marks will be displayed 
  8603.               around the board.
  8604.  
  8605.  pointSize          The distance in pixels between points.
  8606.      
  8607.  sensitive          As usual.
  8608.  
  8609.  viewBottom           The bottom of the partial goban that is viewed. Must range between 1 and
  8610.               gameSize - 1.
  8611.  
  8612.  viewLeft          The left of the partial goban that is viewed. Must range between 1 and
  8613.               gameSize - 1.
  8614.  
  8615.  viewRight          The right of the partial goban that is viewed. Must range between 
  8616.               viewLeft + 1 and gameSize.
  8617.  
  8618.  viewTop          The top of the partial goban that is viewed. Must range between
  8619.               viewBottom + 1 and gameSize.
  8620.  
  8621.  width              As usual.
  8622.  
  8623.  whiteStoneBackground This color will be used to fill the white stones (usually white)
  8624.  whiteStoneBorder     This color will be used to draw a circle arround the white stones.
  8625.  whiteStoneForeground This color will be used to draw marks and numbers on white stones.
  8626.  
  8627.  x              As usual.
  8628.  y              As usual.
  8629.  
  8630.  
  8631. Procedures provided for application
  8632. -----------------------------------  
  8633.  
  8634. void GbRedisplayBoard (w)
  8635. GobanWidget w;
  8636.  
  8637.  Redisplay the entire board <w> on the screen.
  8638.  
  8639. void GbClearBoard (w)
  8640. GobanWidget w;
  8641.  
  8642.  Remove all stones of the board <w> and call GbRedisplayBoard.
  8643.  
  8644.  
  8645. typedef enum { GbEmptyPoint, GbBlackStone, GbWhiteStone, } GbPointState;
  8646.  
  8647. void GbSetPoint (w, x, y, color)     
  8648. GobanWidget  w;
  8649. Position     x;
  8650. Position     y; 
  8651. GbPointState color;
  8652.  
  8653.  Put a stone of color <color> at location <x><y> on the board <w>.
  8654.  If color is GbEmptyPoint, then the stone (if any) is removed from location <x><y>.
  8655.  All marks on this point are removed.
  8656.  If autoRedisplay if set to False the change will not be visible on the screen until
  8657.  the application calls GbRedisplay.
  8658.  
  8659.  
  8660. void GbSetNum (w, x, y, num)
  8661. GobanWidget  w;
  8662. Position     x;
  8663. Position     y;
  8664. unsigned int num;
  8665.  
  8666.  Draw the number <num> on the stone at location <x><y> on the board <w>.
  8667.  <num> must range between 0 and 999 and no number is displayed if there is no stone
  8668.  at this location.
  8669.  If <num> is equal to 0, all previous num (if any) is removed from stone.
  8670.  When the representation of <num> is to bigger than the stone size (according to font size) 
  8671.  no number is displayed.
  8672.  
  8673.  
  8674. void GbSetMark (w, x, y, mark1, mark2)
  8675. GobanWidget   w;
  8676. Position      x;
  8677. Position      y;
  8678. unsigned char mark1;
  8679. unsigned char mark2;
  8680.  
  8681.  Draw the two characters mark at location <x><y> on the board <w>.
  8682.  <x><y> may be an empty point.
  8683.  If <mark1> and <mark2> are equal to 0, the previous mark (if any) is removed from point.
  8684.  If <mark2> is equal to 0, only one character will be displayed.
  8685.  If <mark1> is equal to 0, <mark2> can be one of GbMSquareMark, GbMTriangleMark, GbMVCrossMark, 
  8686.  GbMDCrossMark or GbMDiamondMark. In this case, geometric marks are drawn.
  8687.  When the representation of the mark is to bigger than the stone size (according to font size) 
  8688.  no mark is displayed.
  8689.  GbRemoveMark(w,x,y) is defined as a macro call for GbSetMark(w,x,y,0,0).
  8690.  
  8691.  
  8692. Boolean GbGetStoneFromPosition (w, x, y)
  8693. GobanWidget   w;
  8694. Position     *x;
  8695. Position     *y;
  8696.  
  8697.  Provide a way to know on what point occurs a mouse event.
  8698.  If the event occurs on a valid point on the board, GbGetStoneFromEvent returns TRUE,
  8699.  and <x> <y> variables are set to the coordinates of that point.
  8700.  If not, GbGetStoneFromEvent returns FALSE and <event> is unchanged.
  8701.  
  8702.  
  8703. Boolean GbGetPositionFromStone (w, x, y)
  8704. GobanWidget   w;
  8705. Position     *x;
  8706. Position     *y;
  8707.  
  8708.  Provide a way to know what are the coordinates (in pixel) for the center of a given 
  8709.  point. It works as GbGetStoneFromPosition.
  8710.  Those functions are not reverse of each other ...
  8711.  
  8712. SHAR_EOF
  8713. fi # end of overwriting check
  8714. if test -f 'xgoban.doc'
  8715. then
  8716.     echo shar: will not over-write existing file "'xgoban.doc'"
  8717. else
  8718. cat << \SHAR_EOF > 'xgoban.doc'
  8719.  
  8720.  
  8721.  
  8722. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  8723.  
  8724.  
  8725.  
  8726. NAME
  8727.      xgoban - X11 files editor for the game of go / interface  to
  8728.      gnugo and wally
  8729.  
  8730. SYNOPSIS
  8731.      xgoban [ -toolkitoptions ... ] [ -options ... ] [ _f_i_l_e_n_a_m_e ]
  8732.  
  8733. DESCRIPTION
  8734.      _x_g_o_b_a_n works under 3 major modes : Edit, Play and Mail.
  8735.  
  8736.      In Edit mode, the _x_g_o_b_a_n program displays  a  go  board  and
  8737.      allows  the  user  to  edit  go files. It can read and write
  8738.      files with the Smart-Go format. When started in  Edit  mode,
  8739.      _x_g_o_b_a_n  shows 2 windows : one for the board and the other to
  8740.      display comments.  The title of the comment window is set to
  8741.      the  name of current node if there is one.  The title of the
  8742.      board is set to the name of the current game.
  8743.  
  8744.      In Play mode, _x_g_o_b_a_n can be used to play against go programs
  8745.      (currently  supported  :  wally  and gnugo) or against human
  8746.      opponent.  The game can also be saved with the Smart-Go for-
  8747.      mat.   When  started in Play mode, the program can switch to
  8748.      Edit mode and thus allows the user to edit the played  game.
  8749.      There is no comment window in this mode.
  8750.  
  8751.      Mail mode is designed to be used  in  combination  with  the
  8752.      _m_a_i_l_g_o script from Adrian Mariano.
  8753.  
  8754. OPTIONS
  8755.      _x_g_o_b_a_n accepts all of  the  standard  toolkit  command  line
  8756.      options as well as the following :
  8757.  
  8758.      -size _s_i_z_e
  8759.              This option specifies the size of the goban  :  _s_i_z_e
  8760.              must  range between 2 and 19. It can be used in Play
  8761.              or Edit mode. The default size is 19.
  8762.  
  8763.      -handicap _h_a_n_d_i_c_a_p
  8764.              In Play mode, this option specifies  the  number  of
  8765.              handicap  stones  that  are  to  be put on the goban
  8766.              before the game starts. Legal  values  for  _h_a_n_d_i_c_a_p
  8767.              depend  on  the size of the board and on the playing
  8768.              program. Whitin Edit mode, a first node  is  created
  8769.              and  handicap stones are put under the AddBlack pro-
  8770.              perty.
  8771.  
  8772.      -black _b_l_a_c_k_p_l_a_y_e_r
  8773.              This options indicates the name of the black player.
  8774.              _x_g_o_b_a_n  is  started within Play mode and _b_l_a_c_k_p_l_a_y_e_r
  8775.              is added on the root node under the PlayerBlack pro-
  8776.              perty.  _x_g_o_b_a_n recognize 2 program names : gnugo and
  8777.              wally.  When _b_l_a_c_k_p_l_a_y_e_r is one of them, an  attempt
  8778.  
  8779.  
  8780.  
  8781. Sun Release 4.1     Last change: 15 May 1992                    1
  8782.  
  8783.  
  8784.  
  8785.  
  8786.  
  8787.  
  8788. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  8789.  
  8790.  
  8791.  
  8792.              is made to run the corresponding program (which must
  8793.              be found  using  the  current  environment  variable
  8794.              PATH).
  8795.  
  8796.      -white _w_h_i_t_e_p_l_a_y_e_r
  8797.              This option is the same as -black, but for the white
  8798.              player.
  8799.  
  8800.      -path _p_a_t_h
  8801.              This option  specifies  the  path  where  files  are
  8802.              searched  before  loading  them.   A _p_a_t_h _i_s _a _c_o_m_m_a
  8803.              _s_e_p_a_r_a_t_e_d _l_i_s_t _o_f _d_i_r_e_c_t_o_r_i_e_s.
  8804.  
  8805.      -pointSize _s_i_z_e
  8806.              This option specifies the size in pixels for a small
  8807.              square of the board.
  8808.  
  8809.      -nonumber
  8810.              This option turns off the automatic numbering facil-
  8811.              ity.
  8812.  
  8813.      -silent
  8814.              This option turns off the bell.  -beep _v_o_l_u_m_e
  8815.              This option specifies the volume of the bell when it
  8816.              is  not turned off.  Legal values range between -100
  8817.              and 100. I am not sure it will work on all keyboards
  8818.              ...  Default value is 0.
  8819.  
  8820.      -versatile
  8821.              This option turns off  strong  verification  of  the
  8822.              tree : see below.  This also turns off the automatic
  8823.              numbering facility.
  8824.  
  8825.      -help
  8826.              Displays a list of allowed options.  _x_g_o_b_a_n  is  not
  8827.              started.
  8828.  
  8829.      [ -mail | -m ] _m_a_i_l_f_i_l_e
  8830.              Start _x_g_o_b_a_n in Mail mode. A file should  be  speci-
  8831.              fied  with _f_i_l_e_n_a_m_e argument. This file is read, and
  8832.              _x_g_o_b_a_n automatically moves to the end  of  the  main
  8833.              variation.  When you quit _x_g_o_b_a_n, the game tree will
  8834.              be saved to _m_a_i_l_f_i_l_e. The exit value will be 0 if  a
  8835.              move  has been made and 1 otherwise. This option has
  8836.              been designed to work with the  _m_a_i_l_g_o  script  from
  8837.              Adrian Mariano (adrian@u.washington.edu).  -m option
  8838.              is for compatibility with _m_g_t.
  8839.  
  8840.      [ -short | -s ]
  8841.              This option forces _x_g_o_b_a_n to  save  files  in  short
  8842.              mode  :  only  uppercase  letters  of  keywords  are
  8843.              printed, and there is no carriage return. -s  option
  8844.  
  8845.  
  8846.  
  8847. Sun Release 4.1     Last change: 15 May 1992                    2
  8848.  
  8849.  
  8850.  
  8851.  
  8852.  
  8853.  
  8854. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  8855.  
  8856.  
  8857.  
  8858.              is for compatibility with _m_g_t.
  8859.  
  8860.      -stipple<x>
  8861.              These options set the backgroundPixmap ressource  of
  8862.              the  Goban  widget  to  predefined gray pixmaps (<x>
  8863.              must be one of 1, 2 or 3). You may like  it  if  you
  8864.              use  a  black  and white display. This is an idea of
  8865.              Stephen Coffin.
  8866.  
  8867.      One of -white, -black option starts  _x_g_o_b_a_n  in  Play  mode.
  8868.      Default is Edit mode.
  8869.  
  8870. OPERATIONS
  8871.      When used in Edit mode, _x_g_o_b_a_n allows the user  to  edit  go
  8872.      files.   Commands  are entered form the keyboard or from the
  8873.      mouse. Most of the window that are poped down contain a Con-
  8874.      firm  (or  Yes)  an  a  Cancel (or No) button. Escape key is
  8875.      associated with the Cancel button, while Return Key is asso-
  8876.      ciated with the Confirm button.
  8877.  
  8878.      When an action is not allowed (because the mode your are in)
  8879.      you  will  hear  a  beep.  Of course you hear nothing if you
  8880.      turned the bell off.
  8881.  
  8882.      First are commands that can be used to only view a file :
  8883.  
  8884.      >       Moves to next node along the tree and  displays  its
  8885.              properties.
  8886.  
  8887.      <       Hides properties of current node and moves to previ-
  8888.              ous node along the tree.
  8889.  
  8890.      }       Goes down along the tree until a commented node or a
  8891.              variation node is seen.
  8892.  
  8893.      {       Goes up along the tree until a commented node or the
  8894.              top of the tree is seen.
  8895.  
  8896.      ]       Goes down along the tree until a variation  node  or
  8897.              the bottom of the tree is seen.
  8898.  
  8899.      [       Goes up along the tree until a variation node or the
  8900.              top of the tree is seen.
  8901.  
  8902.      ?       Pops down a short help window.
  8903.  
  8904.      q       Exits from the program.
  8905.  
  8906.      l       Loads a file.
  8907.  
  8908.      s       Saves the current tree to a file.
  8909.  
  8910.  
  8911.  
  8912.  
  8913. Sun Release 4.1     Last change: 15 May 1992                    3
  8914.  
  8915.  
  8916.  
  8917.  
  8918.  
  8919.  
  8920. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  8921.  
  8922.  
  8923.  
  8924.      i       Pops down a window that contains some properties  of
  8925.              the current event (GameName, PlayerWhite, WhiteRank,
  8926.              WhiteSpecies ... and  GameComment)  You  can  change
  8927.              these properties or just view them.
  8928.  
  8929.      A-Z     When there are some variations, an uppercase  letter
  8930.              is  displayed  on  each  point corresponding to each
  8931.              possible move.  The A-Z keys can be used  to  select
  8932.              the corresponding node.  See also Btn2 action
  8933.  
  8934.      Btn1    When there are variations and the mouse points at  a
  8935.              marked  point  (with  uppercase letter), selects the
  8936.              corresponding node.  Otherwise it is the same as key
  8937.              `>'.
  8938.  
  8939.      Btn2    It can arise that not all variations can  be  marked
  8940.              with  an  uppercase  letter  :  if  a variation is a
  8941.              diagram (having AddBlack, AddWhite or AddEmpty  pro-
  8942.              perty),  if  there  is  variations on the same level
  8943.              with differently colored move (Black and White),  or
  8944.              if  there  is  a pass move. In this case, the cursor
  8945.              will be gray.  Pressing the middle button pops up  a
  8946.              menu  where  all  variations  are  listed.   You can
  8947.              choose the one you want to display
  8948.  
  8949.      Btn3    Same as key `<'.
  8950.  
  8951.      Following commands can be used to change a tree :
  8952.  
  8953.      v       Enters the View sub-mode  and  allows  the  user  to
  8954.              select  a partial view of the board. A VieW property
  8955.              is then attached to the node.
  8956.  
  8957.      z       Enters the Size sub-mode and allows the user to  set
  8958.              the  size  of  the board.  SiZe property can only be
  8959.              change at Event node (see below) and  the  board  is
  8960.              cleared.
  8961.  
  8962.      w       Set the PLayer property to  white  for  the  current
  8963.              node.  The next move will be a white stone.
  8964.  
  8965.      b       Set the PLayer property to  black  for  the  current
  8966.              node.  The next move will a black stone.
  8967.  
  8968.      n       Prompt a dialog to edit the name of current node.
  8969.  
  8970.      a       If the current node is a diagram, Enters the Diagram
  8971.              sub-mode and allows the user to edit the diagram.
  8972.  
  8973.      Shift Btn1
  8974.              Adds a move after the current node. The new node  is
  8975.              created  with  property  White or Black according to
  8976.  
  8977.  
  8978.  
  8979. Sun Release 4.1     Last change: 15 May 1992                    4
  8980.  
  8981.  
  8982.  
  8983.  
  8984.  
  8985.  
  8986. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  8987.  
  8988.  
  8989.  
  8990.              the color of the last move. The mouse must point  on
  8991.              the intersection where you want to put the stone.
  8992.  
  8993.      Shift Btn3
  8994.              Deletes the current node and all its sub-nodes.
  8995.  
  8996.      Ctrl Shift Btn1
  8997.              Makes a variation move.  The color is  the  same  as
  8998.              the  PLayer  property  of  previous node.  The mouse
  8999.              must point on the intersection where you want to put
  9000.              a the stone.
  9001.  
  9002.      Ctrl Shift P
  9003.              Makes a variation move which is a  pass  move.   The
  9004.              color is the same as the PLayer property of previous
  9005.              node.
  9006.  
  9007.      Ctrl Shift Btn2
  9008.              Makes a variation diagram.  It enters in the Diagram
  9009.              sub-mode (see below) to allow the user to put stones
  9010.              on the diagram.
  9011.  
  9012.      Ctrl Btn1
  9013.              Puts a letter (downcase) on the mouse pointed inter-
  9014.              section.
  9015.  
  9016.      Ctrl Btn2
  9017.              Puts a triangle mark on the mouse pointed  intersec-
  9018.              tion.
  9019.  
  9020.      Ctrl Btn3
  9021.              Remove any letter or mark  from  the  mouse  pointed
  9022.              intersection.
  9023.  
  9024.      There are sub-modes of Edit mode that can be  Diagram,  View
  9025.      or  Size.  Whitin these sub-modes, actions are changed.  The
  9026.      Diagram sub-mode is signaled by a `point' cursor, while  the
  9027.      View  and  Size  sub-modes are signalled by the `upper-left-
  9028.      corner' cursor.
  9029.  
  9030.      Escape
  9031.              Quit the Diagram, Size or View sub-mode.
  9032.  
  9033.      Btn1    Within Diagram sub-mode : puts a black stone on  the
  9034.              mouse pointed intersection.
  9035.  
  9036.      Btn2    Within Diagram sub-mode : puts a white stone on  the
  9037.              mouse pointed intersection.
  9038.  
  9039.      Btn3    Within Diagram sub-mode : removes any stone from the
  9040.              mouse pointed intersection.
  9041.  
  9042.  
  9043.  
  9044.  
  9045. Sun Release 4.1     Last change: 15 May 1992                    5
  9046.  
  9047.  
  9048.  
  9049.  
  9050.  
  9051.  
  9052. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  9053.  
  9054.  
  9055.  
  9056.      Btn1 Press
  9057.              Within View or Size sub-mode : start draging a  rec-
  9058.              tangle to select the view or the size.
  9059.  
  9060.      Btn1 Motion
  9061.              Within View or Size sub-mode : drags the rectangle.
  9062.  
  9063.      Btn1 Release
  9064.              Within View or Size sub-mode : stop draging the rec-
  9065.              tangle  and  add  a  VieW  or  SiZe  property to the
  9066.              current node.
  9067.  
  9068. GAME TREE
  9069.      Game trees that can be  made  are  slightly  different  from
  9070.      Smart-Go  format.   I  wanted  them to be closer to a `real'
  9071.      game.
  9072.  
  9073.      Node  are  either  of  type  Diagram  (they  have  AddBlack,
  9074.      AddWhite  or  AddEmpty  property) or of type Move (they have
  9075.      Black or White property).   Only  a  Diagram  can  have  the
  9076.      PLayer  property  (default  is  PLayer[B]), which can be set
  9077.      only if the diagram does not have a successor.  A file is  a
  9078.      collection  of  Event  nodes,  which are of type Diagram.  A
  9079.      node can have one or more successors (in which case, succes-
  9080.      sors  are  variations).   If  a node has only one successor,
  9081.      that successor can only be of type Move.  If a  node  is  of
  9082.      type  Move, the color of any successor can only be the oppo-
  9083.      site of its color.  If a node is of type Diagram, the  color
  9084.      of  any  successor is the same as the PLayer property of the
  9085.      diagram.
  9086.  
  9087.      However, I noticed that most  of  the  avaible  game  record
  9088.      doesn't  match  these  restrictions.   _x_g_o_b_a_n  can read such
  9089.      unrestricted files but not edit them and create  new  unres-
  9090.      tricted  nodes.  Thus I added a -versatile option that turns
  9091.      off strong verification for accepted colors of nodes.   When
  9092.      you  specify  -versatile  option,  you can change the PLayer
  9093.      property even at Move nodes or at any node that already have
  9094.      a successor.
  9095.  
  9096. RESOURCES
  9097.      Resources can be set via xrdb  or  in  the  .Xdefault  file.
  9098.      Default resources are as follow :
  9099.  
  9100.           XGoban*size : 19
  9101.           XGoban*handicap : 0
  9102.           XGoban*path : "."
  9103.           XGoban*pointSize : 26
  9104.           XGoban*autonum : True
  9105.           XGoban*beep : True
  9106.           XGoban*versatile : False
  9107.  
  9108.  
  9109.  
  9110.  
  9111. Sun Release 4.1     Last change: 15 May 1992                    6
  9112.  
  9113.  
  9114.  
  9115.  
  9116.  
  9117.  
  9118. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  9119.  
  9120.  
  9121.  
  9122.      You can change the board color if you  want.  Remember  that
  9123.      the  board  background shouldn't be black : thus, on a black
  9124.      and white display the only valid background is white.
  9125.  
  9126.           XGoban*goban.background : tan1
  9127.           XGoban*goban.foreground : black
  9128.  
  9129.      But everything else can be black on a  white  background  if
  9130.      you like it :
  9131.  
  9132.           XGoban*background  : black
  9133.           XGoban*foreground  : white
  9134.           XGoban*borderColor : white
  9135.  
  9136.      You can also control the geometry of windows :
  9137.  
  9138.           XGoban.geometry         : 500x500+30+30
  9139.           XGoban.comment.geometry : 500x200+30+580
  9140.  
  9141.      You can change the translation table for  the  goban  Widget
  9142.      (see  xgoban.c  for the default translation table). You must
  9143.      be carefull by doing this because of  multiple  modes.  Some
  9144.      action  work only in a specified mode, and you can bind them
  9145.      to the same event if they don't work in the same  mode.  But
  9146.      don't  bind  two  actions  working in the same mode with the
  9147.      same event ... you may have trouble.  A good way  to  change
  9148.      the  translation table is just to change the left part (name
  9149.      of events) and to leave the right part (action)  as  it  is.
  9150.      To  change  the translation table see a doc on X Toolkit and
  9151.      modify your .Xdefaults accordly.
  9152.  
  9153. EXAMPLES
  9154.      To read and edit the file 001_001.s :
  9155.           xgoban 001_001.s
  9156.      To play black against gnugo with 5 handicap stones :
  9157.           xgoban -handicap 5 -white gnugo
  9158.      To play white against wally :
  9159.           xgoban -black wally
  9160.      To make wally play against gnugo :
  9161.           xgoban -black wally -white gnugo
  9162.  
  9163. BUGS
  9164.      When read, a file is supposed to  be  syntacticaly  correct.
  9165.      This  is normally the case, when you didn't create this file
  9166.      by hand ...
  9167.  
  9168.      File names are limited to 512 bytes.
  9169.  
  9170.      -pointSize option doesn't work with smaller size than 19x19.
  9171.      The  board  size  is calculated as if it were a 19x19 board,
  9172.      and then the board size is changed whitin the same square.
  9173.  
  9174.  
  9175.  
  9176.  
  9177. Sun Release 4.1     Last change: 15 May 1992                    7
  9178.  
  9179.  
  9180.  
  9181.  
  9182.  
  9183.  
  9184. XGOBAN(6)                GAMES AND DEMOS                XGOBAN(6)
  9185.  
  9186.  
  9187.  
  9188.      Resign is not supported in Play mode, and you can't use  the
  9189.      counting features of gnugo or wally.
  9190.  
  9191. SEE ALSO
  9192.      _m_g_t from Greg Hale.
  9193.      _m_a_i_l_g_o from Adrian Mariano.
  9194.  
  9195.      _m_g_t,   _m_a_i_l_g_o   and   game   records   are   available    at
  9196.      milton.u.washington.edu.
  9197.  
  9198. AUTHORS
  9199.      Antoine Dumesnil de Maricourt (dumesnil@etca.fr)
  9200.  
  9201.  
  9202.  
  9203.  
  9204.  
  9205.  
  9206.  
  9207.  
  9208.  
  9209.  
  9210.  
  9211.  
  9212.  
  9213.  
  9214.  
  9215.  
  9216.  
  9217.  
  9218.  
  9219.  
  9220.  
  9221.  
  9222.  
  9223.  
  9224.  
  9225.  
  9226.  
  9227.  
  9228.  
  9229.  
  9230.  
  9231.  
  9232.  
  9233.  
  9234.  
  9235.  
  9236.  
  9237.  
  9238.  
  9239.  
  9240.  
  9241.  
  9242.  
  9243. Sun Release 4.1     Last change: 15 May 1992                    8
  9244.  
  9245.  
  9246.  
  9247. SHAR_EOF
  9248. fi # end of overwriting check
  9249. if test -f 'xgoban.man'
  9250. then
  9251.     echo shar: will not over-write existing file "'xgoban.man'"
  9252. else
  9253. cat << \SHAR_EOF > 'xgoban.man'
  9254. .TH XGOBAN 6  "15 May 1992"
  9255. .SH NAME
  9256. xgoban - X11 files editor for the game of go / 
  9257. interface to gnugo and wally
  9258. .SH SYNOPSIS
  9259. .B xgoban 
  9260. [ 
  9261. .B \-toolkitoptions ...
  9262. ]
  9263. [ 
  9264. .B \-options ... 
  9265. ]
  9266. [ \fIfilename\fP ]
  9267. .SH DESCRIPTION
  9268. .PP
  9269. \fIxgoban\fP works under 3 major modes : Edit, Play and Mail.
  9270. .LP
  9271. In Edit mode, the \fIxgoban\fP program displays a go board and allows 
  9272. the user to edit go files. 
  9273. It can read and write files with the Smart-Go format. 
  9274. When started in Edit mode, \fIxgoban\fP shows 2 windows : one for the
  9275. board and the other to display comments.
  9276. The title of the comment window is set to the name of current node if
  9277. there is one.
  9278. The title of the board is set to the name of the current game.
  9279. .LP
  9280. In Play mode, \fIxgoban\fP can be used to play against go
  9281. programs (currently supported : wally and gnugo) or against human opponent.
  9282. The game can also be saved with the Smart-Go format.
  9283. When started in Play mode, the program can switch to Edit mode and thus
  9284. allows the user to edit the played game.
  9285. There is no comment window in this mode.
  9286. .LP
  9287. Mail mode is designed to be used in combination with the \fImailgo\fP
  9288. script from Adrian Mariano.
  9289. .SH OPTIONS
  9290. \fIxgoban\fP accepts all of the standard toolkit command line options as
  9291. well as the following :
  9292. .TP 8
  9293. .B \-size \fIsize\fP
  9294. This option specifies the size of the goban : \fIsize\fP must range between
  9295. 2 and 19. It can be used in Play or Edit mode. The default size is 19.
  9296. .TP 8
  9297. .B \-handicap \fIhandicap\fP
  9298. In Play mode, this option specifies the number of handicap stones that 
  9299. are to be put on the goban before the game starts. 
  9300. Legal values for \fIhandicap\fP depend on the size of the board and on
  9301. the playing program. 
  9302. Whitin Edit mode, a first node is created and handicap stones are put 
  9303. under the AddBlack property.
  9304. .TP 8
  9305. .B \-black \fIblackplayer\fP
  9306. This options indicates the name of the black player. \fIxgoban\fP 
  9307. is started within Play mode and \fIblackplayer\fP is added on the root 
  9308. node under the PlayerBlack property. 
  9309. \fIxgoban\fP recognize 2 program names : gnugo and wally.
  9310. When \fIblackplayer\fP is one of them, an attempt is made to run the
  9311. corresponding program (which must be found using the current environment variable
  9312. PATH).
  9313. .TP 8
  9314. .B \-white \fIwhiteplayer\fP
  9315. This option is the same as -black, but for the white player.
  9316. .TP 8
  9317. .B \-path \fIpath\fP
  9318. This option specifies the path where files are searched before loading them.
  9319. A \fIpath\fp is a comma separated list of directories.
  9320. .TP 8
  9321. .B \-pointSize \fIsize\fP
  9322. This option specifies the size in pixels for a small square of the board.
  9323. .TP 8
  9324. .B \-nonumber
  9325. This option turns off the automatic numbering facility.
  9326. .TP 8
  9327. .B \-silent
  9328. .br
  9329. This option turns off the bell.
  9330. .B \-beep \fIvolume\fP
  9331. .br
  9332. This option specifies the volume of the bell when it is not turned off.
  9333. Legal values range between -100 and 100. 
  9334. I am not sure it will work on all keyboards ...
  9335. Default value is 0. 
  9336. .TP 8
  9337. .B \-versatile
  9338. This option turns off strong verification of the tree : see below.
  9339. This also turns off the automatic numbering facility.
  9340. .TP 8
  9341. .B \-help
  9342. .br
  9343. Displays a list of allowed options.
  9344. \fIxgoban\fP is not started.
  9345. .TP 8
  9346. .B [ \-mail | \-m ] \fImailfile\fP
  9347. Start \fIxgoban\fP in Mail mode. A file should be specified with 
  9348. \fIfilename\fP argument. This file is read, and \fIxgoban\fP automatically
  9349. moves to the end of the main variation. 
  9350. When you quit \fIxgoban\fP, the game tree will be saved to
  9351. \fImailfile\fP. The exit value will be 0 if a move has been made
  9352. and 1 otherwise. This option has been designed to work with the
  9353. \fImailgo\fP script from Adrian Mariano (adrian@u.washington.edu).
  9354. \-m option is for compatibility with \fImgt\fP.
  9355. .TP 8
  9356. .B [ \-short | \-s ]
  9357. This option forces \fIxgoban\fP to save files in short mode : only
  9358. uppercase letters of keywords are printed, and there is no carriage
  9359. return. \-s option is for compatibility with \fImgt\fP.
  9360. .TP 8
  9361. .B -stipple<x>
  9362. These options set the backgroundPixmap ressource of the Goban widget
  9363. to predefined gray pixmaps (<x> must be one of 1, 2 or 3). 
  9364. You may like it if you use a black and white
  9365. display. This is an idea of Stephen Coffin.
  9366. .LP
  9367. One of \-white, \-black option starts \fIxgoban\fP in Play mode.
  9368. Default is Edit mode.
  9369. .SH OPERATIONS
  9370. .B 
  9371. When used in Edit mode, \fIxgoban\fP allows the user to edit go files.
  9372. Commands are entered form the keyboard or from the mouse. 
  9373. Most of the window that are poped down contain a Confirm (or Yes) an a 
  9374. Cancel (or No) button. 
  9375. Escape key is associated with the Cancel button, while Return
  9376. Key is associated with the Confirm button.
  9377. .LP
  9378. When an action is not allowed (because the mode your are in)
  9379. you will hear a beep. Of course you hear nothing if you turned
  9380. the bell off.
  9381. .LP
  9382. First are commands that can be used to only view a file :
  9383. .LP
  9384. .TP 8
  9385. > 
  9386. Moves to next node along the tree and displays its properties.
  9387. .LP
  9388. .TP 8
  9389. <
  9390. Hides properties of current node and moves to previous node 
  9391. along the tree.
  9392. .LP
  9393. .TP 8
  9394. }
  9395. Goes down along the tree until a commented node or a variation node
  9396. is seen. 
  9397. .LP
  9398. .TP 8
  9399. {
  9400. Goes up along the tree until a commented node or the top of the tree
  9401. is seen. 
  9402. .LP
  9403. .TP 8
  9404. ]
  9405. Goes down along the tree until a variation node or the bottom of the
  9406. tree is seen. 
  9407. .LP
  9408. .TP 8
  9409. [
  9410. Goes up along the tree until a variation node or the top of the tree
  9411. is seen. 
  9412. .LP
  9413. .TP 8
  9414. ?
  9415. Pops down a short help window.
  9416. .LP
  9417. .TP 8
  9418. q
  9419. Exits from the program.
  9420. .LP
  9421. .TP 8
  9422. l
  9423. Loads a file.
  9424. .LP
  9425. .TP 8
  9426. s
  9427. Saves the current tree to a file.
  9428. .LP
  9429. .TP 8
  9430. i
  9431. Pops down a window that contains some properties of the current event
  9432. (GameName, PlayerWhite, WhiteRank, WhiteSpecies ... and GameComment)
  9433. You can change these properties or just view them.
  9434. .LP
  9435. .TP 8
  9436. A-Z
  9437. When there are some variations, an uppercase letter is displayed on each
  9438. point corresponding to each possible move.
  9439. The A-Z keys can be used to select the corresponding node.
  9440. See also Btn2 action
  9441. .LP
  9442. .TP 8
  9443. Btn1
  9444. When there are variations and the mouse points at a marked point (with
  9445. uppercase letter), selects the corresponding node.
  9446. Otherwise it is the same as key `>'.
  9447. .LP
  9448. .TP 8
  9449. Btn2
  9450. It can arise that not all variations can be marked with an uppercase
  9451. letter : if a variation is a diagram (having AddBlack, AddWhite or AddEmpty
  9452. property), if there is variations on the same level
  9453. with differently colored move (Black and White), or if there is a pass move. 
  9454. In this case, the cursor will be gray.
  9455. Pressing the middle button pops up a menu where all variations are listed.
  9456. You can choose the one you want to display
  9457. .LP
  9458. .TP 8
  9459. Btn3
  9460. Same as key `<'.
  9461. .LP
  9462. Following commands can be used to change a tree :
  9463. .LP
  9464. .TP 8
  9465. v
  9466. Enters the View sub-mode and allows the user to select a partial view of the
  9467. board. A VieW property is then attached to the node.
  9468. .LP
  9469. .TP 8
  9470. z
  9471. Enters the Size sub-mode and allows the user to set the size of the board.
  9472. SiZe property can only be change at Event node (see below) and the board
  9473. is cleared.
  9474. .LP
  9475. .TP 8
  9476. w
  9477. Set the PLayer property to white for the current node.
  9478. The next move will be a white stone.
  9479. .LP
  9480. .TP 8
  9481. b
  9482. Set the PLayer property to black for the current node.
  9483. The next move will a black stone.
  9484. .LP
  9485. .TP 8
  9486. n
  9487. Prompt a dialog to edit the name of current node.
  9488. .LP
  9489. .TP 8
  9490. a
  9491. If the current node is a diagram,
  9492. Enters the Diagram sub-mode and allows the user to edit the diagram.
  9493. .LP
  9494. .TP 8
  9495. Shift Btn1
  9496. Adds a move after the current node. 
  9497. The new node is created with property
  9498. White or Black according to the color of the last move. 
  9499. The mouse must point on the intersection where you want to put the stone.
  9500. .LP
  9501. .TP 8
  9502. Shift Btn3
  9503. Deletes the current node and all its sub-nodes.
  9504. .LP
  9505. .TP 8
  9506. Ctrl Shift Btn1
  9507. Makes a variation move.
  9508. The color is the same as the PLayer property of previous node.
  9509. The mouse must point on the intersection where you want to put a the stone.
  9510. .LP
  9511. .TP 8
  9512. Ctrl Shift P
  9513. Makes a variation move which is a pass move.
  9514. The color is the same as the PLayer property of previous node.
  9515. .LP
  9516. .TP 8
  9517. Ctrl Shift Btn2
  9518. Makes a variation diagram.
  9519. It enters in the Diagram sub-mode (see below) to allow the user to put stones on 
  9520. the diagram.
  9521. .LP
  9522. .TP 8
  9523. Ctrl Btn1
  9524. Puts a letter (downcase) on the mouse pointed intersection.
  9525. .LP
  9526. .TP 8
  9527. Ctrl Btn2
  9528. Puts a triangle mark on the mouse pointed intersection.
  9529. .LP
  9530. .TP 8
  9531. Ctrl Btn3
  9532. Remove any letter or mark from the mouse pointed intersection.
  9533. .LP
  9534. There are sub-modes of Edit mode that can be Diagram, View or Size.
  9535. Whitin these sub-modes, actions are changed.
  9536. The Diagram sub-mode is signaled by a `point' cursor, while the View and
  9537. Size sub-modes are signalled by the `upper-left-corner' cursor.
  9538. .LP
  9539. .TP 8
  9540. Escape
  9541. .br
  9542. Quit the Diagram, Size or View sub-mode.
  9543. .LP
  9544. .TP 8
  9545. Btn1
  9546. Within Diagram sub-mode : puts a black stone on the mouse pointed intersection.
  9547. .LP
  9548. .TP 8
  9549. Btn2
  9550. Within Diagram sub-mode : puts a white stone on the mouse pointed intersection.
  9551. .LP
  9552. .TP 8
  9553. Btn3
  9554. Within Diagram sub-mode : removes any stone from the mouse pointed intersection.
  9555. .LP
  9556. .TP 8
  9557. Btn1 Press
  9558. Within View or Size sub-mode : start draging a rectangle to select the view
  9559. or the size.
  9560. .LP
  9561. .TP 8
  9562. Btn1 Motion
  9563. Within View or Size sub-mode : drags the rectangle.
  9564. .LP
  9565. .TP 8
  9566. Btn1 Release
  9567. Within View or Size sub-mode : stop draging the rectangle and add a VieW or SiZe 
  9568. property to the current node.
  9569. .SH GAME TREE
  9570. Game trees that can be made are slightly different from Smart-Go format.
  9571. I wanted them to be closer to a `real' game. 
  9572. .LP
  9573. Node are either of type Diagram (they have AddBlack, AddWhite or AddEmpty property)
  9574. or of type Move (they have Black or White property).
  9575. Only a Diagram can have the PLayer property (default is PLayer[B]), which
  9576. can be set only if the diagram does not have a successor.
  9577. A file is a collection of Event nodes, which are of type Diagram.
  9578. A node can have one or more successors (in which case, successors are variations).
  9579. If a node has only one successor, that successor can only be of type Move.
  9580. If a node is of type Move, the color of any successor can only be the opposite
  9581. of its color.
  9582. If a node is of type Diagram, the color of any successor is the same as the PLayer
  9583. property of the diagram.
  9584. .LP
  9585. However, I noticed that most of the avaible game record doesn't match these restrictions.
  9586. \fIxgoban\fP can read such unrestricted files but not edit them and create new 
  9587. unrestricted nodes.
  9588. Thus I added a \-versatile option that turns off strong verification for accepted colors
  9589. of nodes.
  9590. When you specify \-versatile option, you can change the PLayer property even at Move nodes
  9591. or at any node that already have a successor.
  9592. .SH RESOURCES
  9593. Resources can be set via xrdb or in the .Xdefault file. 
  9594. Default resources are as follow :
  9595. .sp
  9596. .nf
  9597. .ta .5i
  9598.     XGoban*size : 19
  9599.     XGoban*handicap : 0
  9600.     XGoban*path : "."
  9601.     XGoban*pointSize : 26
  9602.     XGoban*autonum : True
  9603.     XGoban*beep : True
  9604.     XGoban*versatile : False
  9605. .fi
  9606. .LP
  9607. You can change the board color if you want. Remember that the board background
  9608. shouldn't be black : thus, on a black and white display the only valid background 
  9609. is white.
  9610. .sp
  9611. .nf
  9612. .ta .5i
  9613.     XGoban*goban.background : tan1
  9614.     XGoban*goban.foreground : black
  9615. .fi
  9616. .LP
  9617. But everything else can be black on a white background if you like it :
  9618. .sp
  9619. .nf
  9620. .ta .5i
  9621.     XGoban*background  : black
  9622.     XGoban*foreground  : white
  9623.     XGoban*borderColor : white
  9624. .fi
  9625. .LP
  9626. You can also control the geometry of windows :
  9627. .sp
  9628. .nf
  9629. .ta .5i
  9630.     XGoban.geometry         : 500x500+30+30
  9631.     XGoban.comment.geometry : 500x200+30+580
  9632. .fi
  9633. .LP
  9634. You can change the translation table for the goban Widget (see xgoban.c for the
  9635. default translation table). You must be carefull by doing this because of multiple
  9636. modes. Some action work only in a specified mode, and you can bind them to the same
  9637. event if they don't work in the same mode. But don't bind two actions working in the
  9638. same mode with the same event ... you may have trouble.
  9639. A good way to change the translation table is just to change the left part (name of
  9640. events) and to leave the right part (action) as it is.
  9641. To change the translation table see a doc on X Toolkit and modify your .Xdefaults
  9642. accordly.
  9643. .SH EXAMPLES
  9644. .PD 0
  9645. .TP 5
  9646. To read and edit the file 001_001.s :
  9647. .B xgoban 001_001.s
  9648. .TP 5
  9649. To play black against gnugo with 5 handicap stones :
  9650. .B xgoban -handicap 5 -white gnugo 
  9651. .TP 5
  9652. To play white against wally :
  9653. .B xgoban -black wally 
  9654. .TP 5
  9655. To make wally play against gnugo :
  9656. .B xgoban -black wally -white gnugo
  9657. .PD
  9658. .SH BUGS
  9659. .LP
  9660. When read, a file is supposed to be syntacticaly correct.
  9661. This is normally the case, when you didn't create this file by hand ...
  9662. .LP
  9663. File names are limited to 512 bytes.
  9664. .LP
  9665. \-pointSize option doesn't work with smaller size than 19x19.
  9666. The board size is calculated as if it were a 19x19 board, and 
  9667. then the board size is changed whitin the same square.
  9668. .LP
  9669. Resign is not supported in Play mode, and you can't use the counting
  9670. features of gnugo or wally.
  9671. .LP
  9672. Once you edit a file, you can't start editing another one without quiting
  9673. \fIxgoban\fP. You can also delete all top nodes but beware from erasing you
  9674. previous file with the save command.
  9675. .SH SEE ALSO
  9676. \fImgt\fP from Greg Hale.
  9677. .br
  9678. \fImailgo\fP from Adrian Mariano.
  9679. .LP
  9680. \fImgt\fP, \fImailgo\fP and game records 
  9681. are available at milton.u.washington.edu.
  9682. .SH AUTHORS
  9683. Antoine Dumesnil de Maricourt (dumesnil@etca.fr)
  9684. SHAR_EOF
  9685. fi # end of overwriting check
  9686. if test -f 'xgoban.6'
  9687. then
  9688.     echo shar: will not over-write existing file "'xgoban.6'"
  9689. else
  9690. cat << \SHAR_EOF > 'xgoban.6'
  9691. .TH XGOBAN 6  "15 May 1992"
  9692. .SH NAME
  9693. xgoban - X11 files editor for the game of go / 
  9694. interface to gnugo and wally
  9695. .SH SYNOPSIS
  9696. .B xgoban 
  9697. [ 
  9698. .B \-toolkitoptions ...
  9699. ]
  9700. [ 
  9701. .B \-options ... 
  9702. ]
  9703. [ \fIfilename\fP ]
  9704. .SH DESCRIPTION
  9705. .PP
  9706. \fIxgoban\fP works under 3 major modes : Edit, Play and Mail.
  9707. .LP
  9708. In Edit mode, the \fIxgoban\fP program displays a go board and allows 
  9709. the user to edit go files. 
  9710. It can read and write files with the Smart-Go format. 
  9711. When started in Edit mode, \fIxgoban\fP shows 2 windows : one for the
  9712. board and the other to display comments.
  9713. The title of the comment window is set to the name of current node if
  9714. there is one.
  9715. The title of the board is set to the name of the current game.
  9716. .LP
  9717. In Play mode, \fIxgoban\fP can be used to play against go
  9718. programs (currently supported : wally and gnugo) or against human opponent.
  9719. The game can also be saved with the Smart-Go format.
  9720. When started in Play mode, the program can switch to Edit mode and thus
  9721. allows the user to edit the played game.
  9722. There is no comment window in this mode.
  9723. .LP
  9724. Mail mode is designed to be used in combination with the \fImailgo\fP
  9725. script from Adrian Mariano.
  9726. .SH OPTIONS
  9727. \fIxgoban\fP accepts all of the standard toolkit command line options as
  9728. well as the following :
  9729. .TP 8
  9730. .B \-size \fIsize\fP
  9731. This option specifies the size of the goban : \fIsize\fP must range between
  9732. 2 and 19. It can be used in Play or Edit mode. The default size is 19.
  9733. .TP 8
  9734. .B \-handicap \fIhandicap\fP
  9735. In Play mode, this option specifies the number of handicap stones that 
  9736. are to be put on the goban before the game starts. 
  9737. Legal values for \fIhandicap\fP depend on the size of the board and on
  9738. the playing program. 
  9739. Whitin Edit mode, a first node is created and handicap stones are put 
  9740. under the AddBlack property.
  9741. .TP 8
  9742. .B \-black \fIblackplayer\fP
  9743. This options indicates the name of the black player. \fIxgoban\fP 
  9744. is started within Play mode and \fIblackplayer\fP is added on the root 
  9745. node under the PlayerBlack property. 
  9746. \fIxgoban\fP recognize 2 program names : gnugo and wally.
  9747. When \fIblackplayer\fP is one of them, an attempt is made to run the
  9748. corresponding program (which must be found using the current environment variable
  9749. PATH).
  9750. .TP 8
  9751. .B \-white \fIwhiteplayer\fP
  9752. This option is the same as -black, but for the white player.
  9753. .TP 8
  9754. .B \-path \fIpath\fP
  9755. This option specifies the path where files are searched before loading them.
  9756. A \fIpath\fp is a comma separated list of directories.
  9757. .TP 8
  9758. .B \-pointSize \fIsize\fP
  9759. This option specifies the size in pixels for a small square of the board.
  9760. .TP 8
  9761. .B \-nonumber
  9762. This option turns off the automatic numbering facility.
  9763. .TP 8
  9764. .B \-silent
  9765. .br
  9766. This option turns off the bell.
  9767. .B \-beep \fIvolume\fP
  9768. .br
  9769. This option specifies the volume of the bell when it is not turned off.
  9770. Legal values range between -100 and 100. 
  9771. I am not sure it will work on all keyboards ...
  9772. Default value is 0. 
  9773. .TP 8
  9774. .B \-versatile
  9775. This option turns off strong verification of the tree : see below.
  9776. This also turns off the automatic numbering facility.
  9777. .TP 8
  9778. .B \-help
  9779. .br
  9780. Displays a list of allowed options.
  9781. \fIxgoban\fP is not started.
  9782. .TP 8
  9783. .B [ \-mail | \-m ] \fImailfile\fP
  9784. Start \fIxgoban\fP in Mail mode. A file should be specified with 
  9785. \fIfilename\fP argument. This file is read, and \fIxgoban\fP automatically
  9786. moves to the end of the main variation. 
  9787. When you quit \fIxgoban\fP, the game tree will be saved to
  9788. \fImailfile\fP. The exit value will be 0 if a move has been made
  9789. and 1 otherwise. This option has been designed to work with the
  9790. \fImailgo\fP script from Adrian Mariano (adrian@u.washington.edu).
  9791. \-m option is for compatibility with \fImgt\fP.
  9792. .TP 8
  9793. .B [ \-short | \-s ]
  9794. This option forces \fIxgoban\fP to save files in short mode : only
  9795. uppercase letters of keywords are printed, and there is no carriage
  9796. return. \-s option is for compatibility with \fImgt\fP.
  9797. .TP 8
  9798. .B -stipple<x>
  9799. These options set the backgroundPixmap ressource of the Goban widget
  9800. to predefined gray pixmaps (<x> must be one of 1, 2 or 3). 
  9801. You may like it if you use a black and white
  9802. display. This is an idea of Stephen Coffin.
  9803. .LP
  9804. One of \-white, \-black option starts \fIxgoban\fP in Play mode.
  9805. Default is Edit mode.
  9806. .SH OPERATIONS
  9807. .B 
  9808. When used in Edit mode, \fIxgoban\fP allows the user to edit go files.
  9809. Commands are entered form the keyboard or from the mouse. 
  9810. Most of the window that are poped down contain a Confirm (or Yes) an a 
  9811. Cancel (or No) button. 
  9812. Escape key is associated with the Cancel button, while Return
  9813. Key is associated with the Confirm button.
  9814. .LP
  9815. When an action is not allowed (because the mode your are in)
  9816. you will hear a beep. Of course you hear nothing if you turned
  9817. the bell off.
  9818. .LP
  9819. First are commands that can be used to only view a file :
  9820. .LP
  9821. .TP 8
  9822. > 
  9823. Moves to next node along the tree and displays its properties.
  9824. .LP
  9825. .TP 8
  9826. <
  9827. Hides properties of current node and moves to previous node 
  9828. along the tree.
  9829. .LP
  9830. .TP 8
  9831. }
  9832. Goes down along the tree until a commented node or a variation node
  9833. is seen. 
  9834. .LP
  9835. .TP 8
  9836. {
  9837. Goes up along the tree until a commented node or the top of the tree
  9838. is seen. 
  9839. .LP
  9840. .TP 8
  9841. ]
  9842. Goes down along the tree until a variation node or the bottom of the
  9843. tree is seen. 
  9844. .LP
  9845. .TP 8
  9846. [
  9847. Goes up along the tree until a variation node or the top of the tree
  9848. is seen. 
  9849. .LP
  9850. .TP 8
  9851. ?
  9852. Pops down a short help window.
  9853. .LP
  9854. .TP 8
  9855. q
  9856. Exits from the program.
  9857. .LP
  9858. .TP 8
  9859. l
  9860. Loads a file.
  9861. .LP
  9862. .TP 8
  9863. s
  9864. Saves the current tree to a file.
  9865. .LP
  9866. .TP 8
  9867. i
  9868. Pops down a window that contains some properties of the current event
  9869. (GameName, PlayerWhite, WhiteRank, WhiteSpecies ... and GameComment)
  9870. You can change these properties or just view them.
  9871. .LP
  9872. .TP 8
  9873. A-Z
  9874. When there are some variations, an uppercase letter is displayed on each
  9875. point corresponding to each possible move.
  9876. The A-Z keys can be used to select the corresponding node.
  9877. See also Btn2 action
  9878. .LP
  9879. .TP 8
  9880. Btn1
  9881. When there are variations and the mouse points at a marked point (with
  9882. uppercase letter), selects the corresponding node.
  9883. Otherwise it is the same as key `>'.
  9884. .LP
  9885. .TP 8
  9886. Btn2
  9887. It can arise that not all variations can be marked with an uppercase
  9888. letter : if a variation is a diagram (having AddBlack, AddWhite or AddEmpty
  9889. property), if there is variations on the same level
  9890. with differently colored move (Black and White), or if there is a pass move. 
  9891. In this case, the cursor will be gray.
  9892. Pressing the middle button pops up a menu where all variations are listed.
  9893. You can choose the one you want to display
  9894. .LP
  9895. .TP 8
  9896. Btn3
  9897. Same as key `<'.
  9898. .LP
  9899. Following commands can be used to change a tree :
  9900. .LP
  9901. .TP 8
  9902. v
  9903. Enters the View sub-mode and allows the user to select a partial view of the
  9904. board. A VieW property is then attached to the node.
  9905. .LP
  9906. .TP 8
  9907. z
  9908. Enters the Size sub-mode and allows the user to set the size of the board.
  9909. SiZe property can only be change at Event node (see below) and the board
  9910. is cleared.
  9911. .LP
  9912. .TP 8
  9913. w
  9914. Set the PLayer property to white for the current node.
  9915. The next move will be a white stone.
  9916. .LP
  9917. .TP 8
  9918. b
  9919. Set the PLayer property to black for the current node.
  9920. The next move will a black stone.
  9921. .LP
  9922. .TP 8
  9923. n
  9924. Prompt a dialog to edit the name of current node.
  9925. .LP
  9926. .TP 8
  9927. a
  9928. If the current node is a diagram,
  9929. Enters the Diagram sub-mode and allows the user to edit the diagram.
  9930. .LP
  9931. .TP 8
  9932. Shift Btn1
  9933. Adds a move after the current node. 
  9934. The new node is created with property
  9935. White or Black according to the color of the last move. 
  9936. The mouse must point on the intersection where you want to put the stone.
  9937. .LP
  9938. .TP 8
  9939. Shift Btn3
  9940. Deletes the current node and all its sub-nodes.
  9941. .LP
  9942. .TP 8
  9943. Ctrl Shift Btn1
  9944. Makes a variation move.
  9945. The color is the same as the PLayer property of previous node.
  9946. The mouse must point on the intersection where you want to put a the stone.
  9947. .LP
  9948. .TP 8
  9949. Ctrl Shift P
  9950. Makes a variation move which is a pass move.
  9951. The color is the same as the PLayer property of previous node.
  9952. .LP
  9953. .TP 8
  9954. Ctrl Shift Btn2
  9955. Makes a variation diagram.
  9956. It enters in the Diagram sub-mode (see below) to allow the user to put stones on 
  9957. the diagram.
  9958. .LP
  9959. .TP 8
  9960. Ctrl Btn1
  9961. Puts a letter (downcase) on the mouse pointed intersection.
  9962. .LP
  9963. .TP 8
  9964. Ctrl Btn2
  9965. Puts a triangle mark on the mouse pointed intersection.
  9966. .LP
  9967. .TP 8
  9968. Ctrl Btn3
  9969. Remove any letter or mark from the mouse pointed intersection.
  9970. .LP
  9971. There are sub-modes of Edit mode that can be Diagram, View or Size.
  9972. Whitin these sub-modes, actions are changed.
  9973. The Diagram sub-mode is signaled by a `point' cursor, while the View and
  9974. Size sub-modes are signalled by the `upper-left-corner' cursor.
  9975. .LP
  9976. .TP 8
  9977. Escape
  9978. .br
  9979. Quit the Diagram, Size or View sub-mode.
  9980. .LP
  9981. .TP 8
  9982. Btn1
  9983. Within Diagram sub-mode : puts a black stone on the mouse pointed intersection.
  9984. .LP
  9985. .TP 8
  9986. Btn2
  9987. Within Diagram sub-mode : puts a white stone on the mouse pointed intersection.
  9988. .LP
  9989. .TP 8
  9990. Btn3
  9991. Within Diagram sub-mode : removes any stone from the mouse pointed intersection.
  9992. .LP
  9993. .TP 8
  9994. Btn1 Press
  9995. Within View or Size sub-mode : start draging a rectangle to select the view
  9996. or the size.
  9997. .LP
  9998. .TP 8
  9999. Btn1 Motion
  10000. Within View or Size sub-mode : drags the rectangle.
  10001. .LP
  10002. .TP 8
  10003. Btn1 Release
  10004. Within View or Size sub-mode : stop draging the rectangle and add a VieW or SiZe 
  10005. property to the current node.
  10006. .SH GAME TREE
  10007. Game trees that can be made are slightly different from Smart-Go format.
  10008. I wanted them to be closer to a `real' game. 
  10009. .LP
  10010. Node are either of type Diagram (they have AddBlack, AddWhite or AddEmpty property)
  10011. or of type Move (they have Black or White property).
  10012. Only a Diagram can have the PLayer property (default is PLayer[B]), which
  10013. can be set only if the diagram does not have a successor.
  10014. A file is a collection of Event nodes, which are of type Diagram.
  10015. A node can have one or more successors (in which case, successors are variations).
  10016. If a node has only one successor, that successor can only be of type Move.
  10017. If a node is of type Move, the color of any successor can only be the opposite
  10018. of its color.
  10019. If a node is of type Diagram, the color of any successor is the same as the PLayer
  10020. property of the diagram.
  10021. .LP
  10022. However, I noticed that most of the avaible game record doesn't match these restrictions.
  10023. \fIxgoban\fP can read such unrestricted files but not edit them and create new 
  10024. unrestricted nodes.
  10025. Thus I added a \-versatile option that turns off strong verification for accepted colors
  10026. of nodes.
  10027. When you specify \-versatile option, you can change the PLayer property even at Move nodes
  10028. or at any node that already have a successor.
  10029. .SH RESOURCES
  10030. Resources can be set via xrdb or in the .Xdefault file. 
  10031. Default resources are as follow :
  10032. .sp
  10033. .nf
  10034. .ta .5i
  10035.     XGoban*size : 19
  10036.     XGoban*handicap : 0
  10037.     XGoban*path : "."
  10038.     XGoban*pointSize : 26
  10039.     XGoban*autonum : True
  10040.     XGoban*beep : True
  10041.     XGoban*versatile : False
  10042. .fi
  10043. .LP
  10044. You can change the board color if you want. Remember that the board background
  10045. shouldn't be black : thus, on a black and white display the only valid background 
  10046. is white.
  10047. .sp
  10048. .nf
  10049. .ta .5i
  10050.     XGoban*goban.background : tan1
  10051.     XGoban*goban.foreground : black
  10052. .fi
  10053. .LP
  10054. But everything else can be black on a white background if you like it :
  10055. .sp
  10056. .nf
  10057. .ta .5i
  10058.     XGoban*background  : black
  10059.     XGoban*foreground  : white
  10060.     XGoban*borderColor : white
  10061. .fi
  10062. .LP
  10063. You can also control the geometry of windows :
  10064. .sp
  10065. .nf
  10066. .ta .5i
  10067.     XGoban.geometry         : 500x500+30+30
  10068.     XGoban.comment.geometry : 500x200+30+580
  10069. .fi
  10070. .LP
  10071. You can change the translation table for the goban Widget (see xgoban.c for the
  10072. default translation table). You must be carefull by doing this because of multiple
  10073. modes. Some action work only in a specified mode, and you can bind them to the same
  10074. event if they don't work in the same mode. But don't bind two actions working in the
  10075. same mode with the same event ... you may have trouble.
  10076. A good way to change the translation table is just to change the left part (name of
  10077. events) and to leave the right part (action) as it is.
  10078. To change the translation table see a doc on X Toolkit and modify your .Xdefaults
  10079. accordly.
  10080. .SH EXAMPLES
  10081. .PD 0
  10082. .TP 5
  10083. To read and edit the file 001_001.s :
  10084. .B xgoban 001_001.s
  10085. .TP 5
  10086. To play black against gnugo with 5 handicap stones :
  10087. .B xgoban -handicap 5 -white gnugo 
  10088. .TP 5
  10089. To play white against wally :
  10090. .B xgoban -black wally 
  10091. .TP 5
  10092. To make wally play against gnugo :
  10093. .B xgoban -black wally -white gnugo
  10094. .PD
  10095. .SH BUGS
  10096. .LP
  10097. When read, a file is supposed to be syntacticaly correct.
  10098. This is normally the case, when you didn't create this file by hand ...
  10099. .LP
  10100. File names are limited to 512 bytes.
  10101. .LP
  10102. \-pointSize option doesn't work with smaller size than 19x19.
  10103. The board size is calculated as if it were a 19x19 board, and 
  10104. then the board size is changed whitin the same square.
  10105. .LP
  10106. Resign is not supported in Play mode, and you can't use the counting
  10107. features of gnugo or wally.
  10108. .LP
  10109. Once you edit a file, you can't start editing another one without quiting
  10110. \fIxgoban\fP. You can also delete all top nodes but beware from erasing you
  10111. previous file with the save command.
  10112. .SH SEE ALSO
  10113. \fImgt\fP from Greg Hale.
  10114. .br
  10115. \fImailgo\fP from Adrian Mariano.
  10116. .LP
  10117. \fImgt\fP, \fImailgo\fP and game records 
  10118. are available at milton.u.washington.edu.
  10119. .SH AUTHORS
  10120. Antoine Dumesnil de Maricourt (dumesnil@etca.fr)
  10121. SHAR_EOF
  10122. fi # end of overwriting check
  10123. if test -f 'xgoban.ad'
  10124. then
  10125.     echo shar: will not over-write existing file "'xgoban.ad'"
  10126. else
  10127. cat << \SHAR_EOF > 'xgoban.ad'
  10128. ! On a black and white terminal, goban.background must be white and 
  10129. ! goban.foreground must be black ...
  10130.  
  10131. XGoban*goban.background : tan1
  10132. XGoban*goban.foreground : black
  10133.  
  10134. ! Everything else can be white on a black foreground
  10135.  
  10136. XGoban*background  : black
  10137. XGoban*foreground  : white
  10138. XGoban*borderColor : white
  10139.  
  10140. ! Position of the windows ...
  10141.  
  10142. XGoban.geometry         : 500x500+30+30
  10143. XGoban.comment.geometry : 500x200+30+580
  10144.  
  10145. ! Default path and other options
  10146. ! These options are overwriten by command line options
  10147.  
  10148. XGoban.path : /users1/dumesnil/Go/games/mgt:/usr/local/games/go/files/mgt:.
  10149.  
  10150. XGoban.autonum   : True
  10151. XGoban.beep      : True
  10152. XGoban.versatile : False
  10153.  
  10154.  
  10155.  
  10156.  
  10157.  
  10158.  
  10159. SHAR_EOF
  10160. fi # end of overwriting check
  10161. if test -f 'README'
  10162. then
  10163.     echo shar: will not over-write existing file "'README'"
  10164. else
  10165. cat << \SHAR_EOF > 'README'
  10166. Here are source files for a X11 go files editor
  10167.  
  10168. The program has been tested under X11R5 on a sun4 (sparc) and under X11R4 
  10169. on a sun3 (68020)
  10170.  
  10171. DISTRIBUTION :
  10172. --------------
  10173.  
  10174. You should find the following files :
  10175.  
  10176.  + CHANGE.Goban
  10177.  + Goban.c
  10178.  + Goban.doc
  10179.  + Goban.h
  10180.  + GobanP.h
  10181.  + Imakefile
  10182.  + README
  10183.  + action.c
  10184.  + blackstone.bm
  10185.  + dialog.c
  10186.  + display.c
  10187.  + event.c
  10188.  + game.c
  10189.  + go.c
  10190.  + go.h
  10191.  + graystone.bm
  10192.  + icon.bm
  10193.  + mailgo.6
  10194.  + misc.c
  10195.  + play.c
  10196.  + sg.c
  10197.  + stonemask.bm
  10198.  + whitestone.bm
  10199.  + xgoban.6
  10200.  + xgoban.ad
  10201.  + xgoban.c
  10202.  + xgoban.doc
  10203.  + xgoban.h
  10204.  + xgoban.man
  10205.  + xmailgo*
  10206.  
  10207. BUILDING XGOBAN :
  10208. -----------------
  10209.  
  10210. Just type :
  10211.  
  10212. >  xmkmf
  10213. >  make depend
  10214. >  make
  10215.  
  10216. If you want to install it with other X11 binary files, just do :
  10217.  
  10218. > make install
  10219. > make install.man
  10220.  
  10221. To run it :
  10222.  
  10223. > xgoban
  10224.  
  10225. xgoban.ad is an example of configuration file. You can change it and add
  10226. it into your .Xdefaults file.
  10227.  
  10228. GOBAN WIDGET :
  10229. --------------
  10230.  
  10231. You can use the Goban widget for itself. Files related to it are : 
  10232.  
  10233.   +  Goban.c
  10234.   +  Goban.doc
  10235.   +  Goban.h
  10236.   +  GobanP.h
  10237.   +  blackstone.bm
  10238.   +  graystone.bm
  10239.   +  stonemask.bm
  10240.   +  whitestone.bm
  10241.  
  10242. For more description of the Goban widget see Goban.doc, and for xgoban
  10243. see the manual pages (or xgoban.doc).
  10244.  
  10245. WARNING :
  10246. ---------
  10247. If you get warning at compile time about types that don't match prototype
  10248. description, you should ignore them. The program will (probably) work ...
  10249. (this can appear mainly with XtAppAddInput; see below)
  10250.  
  10251. You may have trouble to use wally or gnugo with xgoban. You need to add
  10252. `fflush (stdout);' after the printf statements in gnugo and wally source
  10253. files (line 144 in genmove.c for gnugo and line 1683 in wally.c for wally).
  10254. You also can get an updated version (with fflush statement inside) for wally
  10255. on anonymous ftp from milton.u.washington.edu (128.95.136.1).
  10256.  
  10257. If it still doesn't work, maybe your OS doesn't support XtAppAddInput
  10258. with pipe, or has trouble with streams : I can't do anything for
  10259. you, but if you have a solution I will patch xgoban to use it.
  10260.  
  10261. MAILGO :
  10262. --------
  10263.  
  10264. I included the mailgo script from Adrian Mariano in the distribution.
  10265. It is renamed into xmailgo and the only difference is the default program that
  10266. xmailgo try to run : xgoban of course. (you can use mailgo and set your 
  10267. environment variable MAILGO to xgoban to do the same job).
  10268. It is a suggestion of Adrian Mariano.
  10269.  
  10270. THANKS :
  10271. --------
  10272.  
  10273. I thank Adrian Mariano for the usefull remarks he made.
  10274.  
  10275. BUGS :
  10276. ------
  10277.  
  10278. Bug descriptions, use reports, comments or suggestions are welcome.
  10279. Send them to :  
  10280.             dumesnil@etca.fr
  10281. SHAR_EOF
  10282. fi # end of overwriting check
  10283. if test -f 'CHANGE.Goban'
  10284. then
  10285.     echo shar: will not over-write existing file "'CHANGE.Goban'"
  10286. else
  10287. cat << \SHAR_EOF > 'CHANGE.Goban'
  10288. Changes to Goban Widget 
  10289.  
  10290. April 1 1992 : 
  10291. --------------
  10292.   + first version
  10293.  
  10294. June 5 1992  :
  10295. --------------
  10296.   + bugs corrected
  10297.   + backgroundPixmap resource added 
  10298.  
  10299. July 6 1992  :
  10300. --------------
  10301.  
  10302.   + whiteStoneBackground, whiteStoneForground, whiteStoneBorder,
  10303.     blackStoneBackground, blackStoneForground, blackStoneBorder resources added
  10304.     
  10305. SHAR_EOF
  10306. fi # end of overwriting check
  10307. if test -f 'Imakefile'
  10308. then
  10309.     echo shar: will not over-write existing file "'Imakefile'"
  10310. else
  10311. cat << \SHAR_EOF > 'Imakefile'
  10312.         MANSUFFIX = 6
  10313.   LOCAL_LIBRARIES = XawClientLibs
  10314.  
  10315.              SRCS = Goban.c read.c sg.c play.c dialog.c xgoban.c action.c \
  10316.                     misc.c display.c game.c event.c write.c node.c
  10317.              OBJS = Goban.o read.o sg.o play.o dialog.o xgoban.o action.o \
  10318.                     misc.o display.o game.o event.o write.o node.o
  10319.  
  10320. ComplexProgramTarget (xgoban)
  10321. SHAR_EOF
  10322. fi # end of overwriting check
  10323. if test -f 'xmailgo'
  10324. then
  10325.     echo shar: will not over-write existing file "'xmailgo'"
  10326. else
  10327. cat << \SHAR_EOF > 'xmailgo'
  10328.  
  10329. #!/bin/sh
  10330. #
  10331. #  mailgo 1.57    E-mail go game management program by Adrian Mariano
  10332. #     6/5/92      I place it on the public domain.  Please send improvements
  10333. #                 to me at adrian@u.washington.edu.
  10334. # 
  10335. #  Syntax: mailgo [-r] filename
  10336. #          mailgo -n [filename]
  10337. #          mailgo -c 
  10338. # 
  10339. #  Filename should contain a mailgo go game
  10340. #  
  10341. #  -r resends the file to the opponent
  10342. #  -n start a new game, using data in filename to get address
  10343. #  -c removes temporary files left when abnormally terminated
  10344. #
  10345. #  Invokes the game processor in the environment variable MAILGO, or attempts
  10346. #  to run xgoban from the inherited path if MAILGO is not set.
  10347. #
  10348. #  System V Unix users should change the assignment to the MAILER variable
  10349. #  from 'mail' to 'mailx' or 'elm' or some other compatible mailer.
  10350. #
  10351.  
  10352. MAILER=mail
  10353.  
  10354.  
  10355. if [ $# -eq 0 ]
  10356. then
  10357.   echo ' '
  10358.   echo 'Syntax: mailgo [-r] filename'
  10359.   echo '        mailgo -n [filename]'
  10360.   echo '        mailgo -c '
  10361.   echo ' '
  10362.   echo 'Mailgo is a program to manage email go games.'
  10363.   echo 'Filename should contain a mailgo go game'
  10364.   echo '  '
  10365.   echo '  -r resends the file to the opponent'
  10366.   echo '  -n start a new game, using data in filename to get address'
  10367.   echo '  -c removes temporary files left when abnormally terminated'
  10368.   echo ' '
  10369.   exit
  10370. fi
  10371. case $1 in
  10372.   -c) if [ $# -ne 1 ]
  10373.        then
  10374.          echo Wrong number of parameters
  10375.          exit
  10376.        else
  10377.          rm -f MailGo* MailFile* MailOut*
  10378.          exit
  10379.        fi;;
  10380.   -r) if [ $# != 2 ]
  10381.        then
  10382.          echo Wrong number of parameters
  10383.          exit
  10384.        fi
  10385.        if grep "\---GoGaMeEnD---" $2 >/dev/null 2>&1
  10386.        then         
  10387.          name=`sed -n '2,5s/TO: //p' $2`
  10388.          hisfile=`sed -n '2,5s/TOFILE: //p' $2`
  10389.          echo Remailing response to $name, $hisfile
  10390.          $MAILER -s "Remailed Go Game: $hisfile" $name < $2
  10391.          exit
  10392.        else
  10393.          echo Invalid input file $2
  10394.          exit
  10395.        fi;;
  10396.   -n) if [ $# -gt 2 ]
  10397.        then
  10398.          echo Wrong number of parameters
  10399.          exit
  10400.        fi
  10401.        if [ $# -eq 2 ]
  10402.        then
  10403.          if [ ! -s $2 ]
  10404.          then
  10405.            echo File $2 not found.
  10406.            exit
  10407.          fi
  10408.          opponent=`sed -n '2,5s/TO: //p' $2`
  10409.          echo Opponent address: $opponent
  10410.          hisfile=`sed -n '2,5s/TOFILE: //p' $2`
  10411.          echo His game file: $hisfile
  10412.          me=`sed -n '2,5s/FROM: //p' $2`
  10413.          echo Your address: $me
  10414.          myfile=`sed -n '2,5s/FROMFILE: //p' $2`
  10415.          echo Your game file: $myfile
  10416.        else
  10417.          echo -n "Opponent address: "
  10418.          read opponent
  10419.          echo -n "Opponent game filename: "
  10420.          read hisfile
  10421.          echo -n "Your address: "
  10422.          read me
  10423.          echo -n "Your game filename: "
  10424.          read myfile
  10425.        fi
  10426.        echo -n "Black player name: "
  10427.        read bpname
  10428.        echo -n "             rank: "
  10429.        read bprank
  10430.        echo -n "White player name: "
  10431.        read wpname
  10432.        echo -n "             rank: "
  10433.        read wprank
  10434.        echo -n "Handicap: "
  10435.        read handicap
  10436.        echo -n "Komi: "
  10437.        read komi
  10438.        echo -n "Game record format (Long/Short/Extrashort): "
  10439.        read format
  10440.        case $format in
  10441.          L | l) format='L' ;;
  10442.          E | e) format='E' ;;
  10443.          *)     format='S' ;;
  10444.        esac
  10445.        started=`date|awk '{print $3, $2, $6}'`
  10446.        if grep "W\[\]" $myfile >/dev/null 2>&1  
  10447.        then
  10448.          echo -n "File $myfile contains game possibly in progress.  Clobber (y/N)? "
  10449.          read res
  10450.          case $res in
  10451.            Y | y) ;;
  10452.            *)  echo -n "Your game filename: "
  10453.                read myfile;;
  10454.          esac
  10455.        fi
  10456.        cat <<END_END >$myfile
  10457. ---GoGaMeStArT---
  10458. FROM: $me
  10459. FROMFILE: $myfile
  10460. TO: $opponent
  10461. TOFILE: $hisfile
  10462. NEWGAME
  10463. FORMAT: $format
  10464. END_END
  10465.        cat <<END_END > MailGo$$
  10466. (
  10467. ;
  10468. GaMe[1]
  10469. VieW[]
  10470. SiZe[19]
  10471. Comment[ Black: $bpname, $bprank
  10472.  White: $wpname, $wprank
  10473.  Handicap: $handicap
  10474.  Komi: $komi
  10475.  Started: $started
  10476. ]
  10477. PlayerBlack[$bpname]
  10478. BlackRanking[$bprank]
  10479. PlayerWhite[$wpname]
  10480. WhiteRanking[$wprank]
  10481. KoMi[$komi]
  10482. DaTe[$started]
  10483. END_END
  10484.        case $handicap in
  10485.          2) echo "AB[dp][pd]" >> MailGo$$ ;;
  10486.          3) echo "AB[dp][pd][pp]" >> MailGo$$ ;;
  10487.          4) echo "AB[dd][dp][pd][pp]" >> MailGo$$ ;;
  10488.          5) echo "AB[dd][dp][jj][pd][pp]" >> MailGo$$ ;;
  10489.          6) echo "AB[dd][dj][dp][pd][pj][pp]" >> MailGo$$ ;;
  10490.          7) echo "AB[dd][dj][dp][jj][pd][pj][pp]" >> MailGo$$ ;;
  10491.          8) echo "AB[dd][dj][dp][jd][jp][pd][pj][pp]" >> MailGo$$ ;;
  10492.          9) echo "AB[dd][dj][dp][jd][jj][jp][pd][pj][pp]" >> MailGo$$ ;;
  10493.        esac
  10494.        if [ 0$handicap -ge 2 -a $handicap -le 9 ]
  10495.        then
  10496.            echo "PL[W]HA[$handicap]" >> MailGo$$ ;
  10497.        fi
  10498.        echo ")" >> MailGo$$
  10499.  
  10500.        case $format in
  10501.          L) sflag='';;
  10502.          *) sflag=-s;;
  10503.        esac
  10504.        if ${MAILGO-xgoban} $sflag -m MailOut$$ MailGo$$
  10505.        then
  10506.          if [ -s MailOut$$ ]
  10507.          then
  10508.            cat MailOut$$ >>$myfile
  10509.          else
  10510.           cat MailGo$$ >>$myfile
  10511.          fi
  10512.        else
  10513.          echo -n "No move made, or xgoban error. Send anyway (y/N)? "
  10514.          read res
  10515.          case $res in
  10516.            Y | y) cat MailGo$$ >>$myfile;;
  10517.            *) echo   NOT mailing new game.
  10518.               rm -f MailGo$$ MailOut$$
  10519.               exit;;
  10520.          esac
  10521.        fi
  10522.        rm -f MailOut$$ MailGo$$
  10523.        echo Mailing new game to $opponent, $hisfile
  10524.        echo >> $myfile
  10525.        echo "---GoGaMeEnD---" >> $myfile
  10526.        $MAILER -s "New Go Game: $hisfile" $opponent <$myfile
  10527.        exit
  10528.        ;;
  10529. esac
  10530. if [ $# -ne 1 ]
  10531. then
  10532.   echo Wrong number of parameters
  10533.   exit
  10534. fi
  10535. if [ ! -s $1 ]
  10536. then
  10537.   echo File $1 not found
  10538.   exit
  10539. fi
  10540. sed -n '/---GoGaMeStArT---/,/---GoGaMeEnD---/{s/---GoGaMe.*---//
  10541. p
  10542. }' $1 > MailGo$$
  10543. if [ ! -s MailGo$$ ]
  10544. then
  10545.   echo Invalid input file $1
  10546.   exit
  10547. fi
  10548. if sed -n 6,7p MailGo$$ | grep FORMAT > /dev/null 2>&1
  10549. then
  10550.   format=`sed -n '6,7s/FORMAT: //p' MailGo$$`
  10551.   if [ ! \( $format = 'L' -o $format = 'E' \) ] 
  10552.   then
  10553.     format='S'
  10554.   fi
  10555. else
  10556.   format='L'
  10557. fi
  10558. case $format in
  10559.   L) sflag='';;
  10560.   *) sflag='-s';;
  10561.  
  10562. #  E) sflag='-s';;
  10563. #  S) sflag='-s'
  10564. #     sed -n  -e 'H' -e '$g' -e '$s/\n;/;/g' -e '$s/^\n//' -e '$p' <MailGo$$ >MailGoX$$
  10565. #     mv -f MailGoX$$ MailGo$$ ;;
  10566.  
  10567. esac
  10568. if ${MAILGO-xgoban} $sflag -m MailOut$$ MailGo$$
  10569. then
  10570.   echo >> MailOut$$
  10571.   echo ---GoGaMeStArT--- > MailFile$$
  10572.   sed -n '1,/(/s/FROM/TO/p' MailGo$$ >> MailFile$$
  10573.   sed -n '1,/(/s/TO/FROM/p' MailGo$$ >> MailFile$$
  10574.   echo FORMAT: $format >> MailFile$$
  10575.   if [ $format = 'S' ]
  10576.   then
  10577.     sed 's/\(;[BC]\[\)/\
  10578. \1/g' MailOut$$ >>MailFile$$
  10579.   else
  10580.     cat MailOut$$ >> MailFile$$
  10581.   fi
  10582.   echo "---GoGaMeEnD---" >> MailFile$$
  10583.   name=`sed -n '2,5s/FROM: //p' MailGo$$`
  10584.   fileout=`sed -n '2,5s/TOFILE: //p' MailGo$$`
  10585.   tofile=`sed -n '2,5s/FROMFILE: //p' MailGo$$`
  10586.   if sed -n 6p MailGo$$ | grep NEW > /dev/null 2>&1 && [ -s $fileout ]
  10587.   then
  10588.     echo -n "File $fileout exists.  Clobber (y/N)? "
  10589.     read res
  10590.     case $res in
  10591.       Y | y) rm -f $fileout ;;
  10592.       *) echo -n "Output filename: "
  10593.          read newfileout
  10594.          sed "2,5s/FROMFILE: $fileout/FROMFILE: $newfileout/" MailFile$$>Mfil$$
  10595.          mv Mfil$$ MailFile$$
  10596.          fileout=$newfileout ;;
  10597.     esac
  10598.   fi
  10599.   echo Mailing response to $name, $tofile
  10600.   $MAILER -s "Go Game: $tofile" $name < MailFile$$ 
  10601.   rm -f MailGo$$ MailOut$$ $1
  10602.   if grep "\---GoGaMeEnD---" $fileout > /dev/null 2>&1 || [ ! -s $fileout ]
  10603.   then
  10604.     mv MailFile$$ $fileout
  10605.   else
  10606.     echo Save file $fileout doesn\'t look like a mailgo file.  
  10607.     echo "Overwrite it anyway (y/N)?"
  10608.     read res
  10609.     case $res in
  10610.       y | Y) mv -f MailFile$$ $fileout;;
  10611.       *)     echo Game record left in MailFile$$;;
  10612.     esac
  10613.   fi
  10614. else
  10615.   echo No move made, or xgoban error.  NOT mailing response.
  10616.   rm -f MailGo$$ MailOut$$
  10617. fi
  10618. SHAR_EOF
  10619. chmod +x 'xmailgo'
  10620. fi # end of overwriting check
  10621. if test -f 'mailgo.6'
  10622. then
  10623.     echo shar: will not over-write existing file "'mailgo.6'"
  10624. else
  10625. cat << \SHAR_EOF > 'mailgo.6'
  10626. .TH MAILGO 6  "5 April 1991"
  10627. .SH NAME
  10628. mailgo - shell script for using mgt to automate email go games
  10629. .SH SYNOPSIS
  10630. .B mailgo [\-r] [\-n] [\-c] [filename]
  10631. .SH DESCRIPTION
  10632. .B mailgo
  10633. helps manage email games by processing Smart-Go game records received by
  10634. mail, invoking mgt, and automatically sending your next move back.
  10635. .LP
  10636. Invoking 
  10637. .B mailgo 
  10638. with no flags instructs the program to search the specified file for a
  10639. go game, ignoring mail headers or other such garbage.  
  10640. .B mailgo 
  10641. will invoke the game processor specified in the environment variable
  10642. MAILGO or of this variable is undefined, will attempt to run 
  10643. .B mgt
  10644. from the inherited path.
  10645. .LP
  10646. If your opponent loses your move, you can resend the game with the \-r
  10647. switch.
  10648. .LP
  10649. To start a new game, use the \-n switch.  Without a file, you will be 
  10650. prompted for your address, your opponent's address, and the filename for
  10651. both your and your opponent's local game record.  The game processor will
  10652. then be invoked for you to make the first move.  If a filename is specified,
  10653. the address and filename data is taken from that file.
  10654. .LP
  10655. The \-c flag causes the program to delete any extraneous files it might have
  10656. created during a previous run which was abnormally terminated.
  10657. .SH FILE FORMAT
  10658. .LP
  10659. .sp
  10660. .if
  10661.  Leading garbage ignored
  10662.  
  10663.  ---GoGaMeStArT---
  10664.  TO: opponent@hissite
  10665.  TOFILE: his_game_record
  10666.  FROM: me@mysite
  10667.  FROMFILE: my_game_record
  10668.  FORMAT: format_code
  10669.  (
  10670.  Smart\-Go game data
  10671.  )
  10672.  ---GoGaMeEnD---
  10673.  
  10674.  Trailing garbage ignored
  10675. .fi
  10676. .LP
  10677. The game data file contains a leading tag to indicate the start of 
  10678. the data.  It contains both addresses, as should be used to mail the
  10679. game files, and it contains the files to store the games in.  In the
  10680. example above, you are playing opponent@hissite, and the game is being
  10681. stored in my_game_record.
  10682. .LP
  10683. The file format used can be either long, short, or extrashort indicated by L, 
  10684. S, and E respectively.  The long format uses the full size Smart-Go file 
  10685. saved with no options from mgt.  The extrashort format uses mgt with the \-s 
  10686. option to save short format files.  This format may cause problems for some
  10687. mailers, however, because the lines will grow longer than 512 bytes.
  10688. The short format is similar to the extrashort format but has extra newlines
  10689. inserted.  The short format is the default when selecting format from
  10690. the prompt, but the long format is the default if a file contains no FORMAT
  10691. line.
  10692. When 
  10693. .B mailgo
  10694. is used normally, the file specified on the command line is removed at
  10695. successful completion, and the new game is saved to the file specified in
  10696. the received game record.  If the destination file does not look like
  10697. a mailgo file, 
  10698. .B mailgo
  10699. will query for confirmation.
  10700. .SH FILES
  10701. mgt
  10702. .LP
  10703. Smart-Go.def, the Smart\-Go format definition.
  10704. .sp
  10705. .SH BUGS
  10706. .LP
  10707. If you attempt to start a new game, but are not the first player to make a 
  10708. real move, then you will have to convince mgt that you have changed the game 
  10709. record.  Do this by pressing z twice on a blank spot to set and remove a black 
  10710. stone.
  10711. .fi
  10712. .sp
  10713. .SH AUTHOR
  10714. Adrian Mariano (adrian@u.washington.edu)
  10715. SHAR_EOF
  10716. fi # end of overwriting check
  10717. #    End of shell archive
  10718. exit 0
  10719.